String aus Datei füllen

[marabu]

In Anlehnung an das Beispiel von Klaus:

Delphi-Quellcode:

var
  eingabe: String;
  stringlist: TStringlist;
begin
  stringlist := TStringlist.create;
  stringlist.loadfromfile(filename);
  // so wird der gesamte Inhalt als String bereit gestellt
  eingabe := stringlist.text;
  // und so nur die erste Zeile
  if stringlist.count > 0 then
    eingabe := stringlist[0];
  stringlist.free
end;

Grüße vom marabu