Textdatei mit einem String vergleichen

[Furtbichler]

Erstens: Verwende die Code-Tags. Dazu den Quelltext markieren und auf das Delphi-Symbol klicken.

Delphi-Quellcode:

function FileToString(const AFilename: string; StartPos: Integer=0; EndPos: Integer=0): string;
 var
   FileStream : TFileStream;
   wlCount: Integer;
 begin
   if FileExists(AFilename) then
   begin
     if StartPos < 0 then
       StartPos := 0;

     FileStream := TFileStream.Create(AFilename, fmOpenRead or fmShareDenyWrite);
     try
       if (EndPos <= StartPos) or (EndPos > FileStream.Size) then
         EndPos := FileStream.Size;
       wlCount := EndPos - StartPos;
       if FileStream.Size > StartPos then
       begin
         SetLength(Result, wlCount);
         FileStream.Seek(StartPos, soFromBeginning);
         FileStream.Read(Result[1], wlCount);
       end;
     finally
       FileStream.Free;
     end;
   end
   else
     Result := '';
 end;

Zweitens: Die 20+ Zeilen verstehst Du nicht? WAS verstehst Du daran nicht? Schau Sie dir einfach in Ruhe an und lies die Hilfetexte zu jeder verwendeten Methode.