sample - tstrings write item.pas

来自「最新版 JCL+JVCL控件！非常不错的控件资源。包含了所能用到的大部分功能！」· PAS 代码 · 共 17 行

var
  SS: TStringList;
  S: string;
begin
  SS := TStringList.Create;
  //SS.Add('Line 0');
  //SS.Add('Line 1');
  SS.Text := 'Line 0 ' + #13 + 'Line 1';
  // [translated]:
  //SS.Strings[0] := 'Greetings';
  // [translated]:
  SS.Strings[0] := 'Greetings';
  S := SS[1];
  Result := '! ' + S[2] + ' !';
  SS.Free;
end;