david
7ebea5ffa7
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@12 7f62d464-2af8-f54e-996c-e91b33f51cbe
17 lines
337 B
ObjectPascal
17 lines
337 B
ObjectPascal
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;
|