text datei in einen string einladen ... ich mal wieder !

[Luckie]

Delphi-Quellcode:

var
  s, s1: String;
begin
  AssignFile(F, FilePath); 
{$I-}
  Reset(F); 
{$I+}
  if IOResult = 0 then
  begin
    while not EOF(F) do
    begin
      ReadLn(F, s1) ; 
      s := s + s1;
    end;
    Showmessage(s);
    CloseFile(F); 
  end;