TStringList.line(1)?!

[n000b]

hallo, kurze frage...
ich habe tstringlist einen text zugewiesen mit 10 Zeilen, jetzt möchte ich der edit1.text die erste zeile zuweisen wie geht das?
dachte erst so

Delphi-Quellcode:

var
s1: TstringList;
begin
s2.loadfromfile(ExtractFilePath(ParamStr( 0 )) + 'text.txt');
edit1.text:=s2.lines(1);
//ODER
edit1.text:=s2.items(1);
end;

doch sowas geht nicht =(( kann es aber anders machen, erst dem Memo zuweisen und dann die zeilen zuweisen...doch das ist doof )
Mfg

[MrKnogge]

Du musst eckige Klammern verwenden, es ist keine Funktion der du einen Parameter übergibst.

[marabu]

Hi,

schau mal:

Delphi-Quellcode:

begin
  with TStringList.Create do
  try
    LoadFromFile(ExtractFilePath(ParamStr( 0 )) + 'text.txt');
    edit1.Text := Strings[0];
  finally
    Free;
  end;
end;

Freundliche Grüße