Textdatei mit einem String vergleichen

[Baum21]

Es geht mir nicht darum das mir jemand den gesamten code hinklatscht, sondern ich finde einfach nichts in der hilfe von delphi oder im Internet finde.
mir würde schon ein link oder ähnliches genügen, zu einer seite wo ich eine ERKLÄRUNG (und nicht den gesamten code) zum arbeiten mit Textdateien finde. Versteh mich nicht falsch! Ich WILL es ja wieder lernen, weiß aber nicht wo!

[Baum21]

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;
Sowas zb finde ich bisher immer, ich denke allerdings nicht, dass ich das ganze zeugs benötige und vor einigen nocht verstehe.

[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.

[bernerbaer]

Siehe Tutorial bei Delphitreff