EUCのＨＰのソースを迅速に、TStringListに入れるには。

解決

ぺろ 2009-06-11 04:03:57 No: 34682

EUCのＨＰのソースを迅速に、TStringListに入れたいのですが、パターン１だと、文字化けちゃうんですよ。

//パターン１
TL := TStringList.Create;
EWB1.SaveToStrings(TL);

//パターン２
{  s := EWB1.DocumentSource;
  Memo1.Lines.Add(s);
  for i := 0 to Memo1.Lines.Count -1 do
  begin
    TL.Add(Memo1.Lines[i]);
  end;}

Memo2.Lines.AddStrings(TL);
TL.Free;

パターン２なら、文字化けせずにできるんですが、、、なんか中継するのは、かっこわるく＾＾；、処理も一手間あるために、処理時間もかかります。

これはどう？や何をアホな事をしてるん？って方は、よろしく御願いします。

DEKO 2009-06-11 04:13:10 No: 34683

パターン２が文字化けを起こさないのなら、

TL := TStringList.Create;
TL.Text := EWB1.DocumentSource;

でいいのではないでしょうか？

# Delphiのバージョンは何でしょう？

ぺろ 2009-06-11 04:35:49 No: 34684

やだなー、それも試し・・・・、と思ったら、いきなり解決です。

凡ミスでしたね、３０分も悩んでしまった。＾＾；

ありがとうございます。

ぺろ 2009-06-11 04:36:52 No: 34685

私みたいな初心者にも丁寧に回答していただき、ありがとうございます。＾＾；
解決です。