Aus TStringList mach einzelne Stings

[Knotti2005]

Ich habe mit dem Indy Telnet Server ein bisschen rumprogrammiert. Nun möchte ich gerne das er mir dem Inhalt einer TEXT Datei die ich vorher in eine Stringlist geladen habe zurückschickt. Wie mach ich jetzt aus der Stringlist einzelne Strings...


Text Datei speichern

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
var s: Tstringlist;
   begin
   listbox1.Items.Add(datetostr(date) + ' ' + timetostr(time) + ': ' + edit1.Text);
   edit1.Clear;
   listbox1.Items.SaveToFile('text.txt');
   end;

Inhalt laden und zurückschicken lassen

Delphi-Quellcode:

rocedure TForm2.IdTelnetServer1Execute(AThread: TIdPeerThread);
var
  str : string;
  s: Tstringlist;
begin
 with AThread.Connection do
  begin
   Write(' ');
   Write('Kommando>');
   str:=InputLn('');
   WriteLn(str);
   if (str='exit') or (str='logout') then
      Disconnect;
   if (str='key') then
   begin
   s.LoadFromFile('text.txt');

   /// was muss hier rein ????   

   deletefile('text.txt');
 end;
end;
end;

[Grishnak]

- mittels .Text erhältst du alle Strings der Stringlist in einem einzigen String
- mittels .Strings[index] kannst du auf jeden einzelnen String zugreifen

Schon mal die Delphi-Hilfe benutzt? :warn:

[TeronG]

Delphi-Quellcode:

TStringList.Text

fertig