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