UTF-8対応のEditコンポーネントを作りたい (ID:41187)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ありがとうございます、早速やってみました。
gettextとUTF-8で、コンポーネントを作らずとも出来ました！
また、自作コンポーネントを作る際の貴重なアドバイスありがとうございましたm(__)m。

しかし、現在その読み込みで苦戦しています。
オーバーロードの使い方が解らず、
Utf8ToUnicodeが実装出来ずにいます。
オーバーロードで調べても、いまいちよく分かりませんでした…。
複数の同名の変数又は関数を重ねると言う意味までは認識しているのですが、
使い方が全く解りません。

以下が、呼び出し時での部分です。

procedure TForm1.ComboBox1Click(Sender: TObject);
var
  l_List : TStrings;
begin
  l_List := TStringList.Create;

if richedit1.Text <> '' then begin//richedit1.Lines.SaveToFile(ExtractFilePath( Paramstr(0) ) + '\' + tabset1.Tabs[tabset1.tabindex]);
    if editedfile = combobox1.Text then
      try
        l_List.Text := Utf8Encode(GetText(richedit1.Handle));
        l_List.SaveToFile(combobox1.Text);
      finally
        l_List.Free;
      end;
  end; begin
    //ここがわからないです↓      
    Utf8ToUnicode(GetText(richedit1.Handle));

//  combobox1.Text := changefileext(combobox1.Text, '');
  {Richedit1.Lines.LoadFromFile
    (ExtractFilePath( Paramstr(0) ) + combobox1.Text);}
    tabset1.Tabs[tabset1.tabindex] := combobox1.Text;
    editedfile := combobox1.Text;
  Button2Click(Sender);
  end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る