■無料ホームページスペース■

TStringListを使う1


TStringListは、文字列のListです。 複数行の文字列の編集するなどの用途に適します。 以下の例では、行頭に全角空白を挿入します。
使い終わったら、Freeで解放する必要があります。

var
  i, L: Integer;
  SL: TStringList;
begin

  L:= LineCount-1;

  SL:= TStringList.Create;
  try
    for i:= 0 to L do
      SL.Add( '  ' +Strings[i] );

    EditorChangeLines( 0, L, SL.Text );

  finally
    SL.free;
  end;

end.




[Home] [ (´д`)Edit3Menu]
■お 得情報盛りだくさん
■高性能レンタルサーバ