Dateien zerlegen und zusammenfügen

[Hawkeye219]

@bscreator
Noch einige Anmerkungen zu Deinem Code:

1.) Du solltest die Datei nur schließen, wenn sie auch geöffnet wurde. Die Anweisungen AssignFile und Reset müssen also vor dem TRY-Block stehen.
2.) Die Vergleiche mit True und False sind nicht notwendig und können in bestimmten Situationen sogar zu falschen Ergebnissen führen. Die Erklärung dafür findest Du hier.
3.) FileSize

Die geänderte Version des Codes (incl. Luckies Vorschlag):

Delphi-Quellcode:

Exists := false;
Pos := 0;

if (FileExists(Edit1.Text)) then
begin
  Res := DisableWriteProtection(Edit1.Text);   //Schreibschutz aufheben
  Edit4.Text := 'Waiting...';
  Edit4.Refresh;

  AssignFile(F, Edit1.Text);  //Dateipointer zuweisen
  Reset(F);                   //Datei öffnen
         
  try  //Anzahl der Datensätze ermitteln

    Seek(F,0); //Satzzeiger an Anfang

    While (NOT EOF(F)) do
    begin
      Pos := Pos + 1;
      Seek(F, Pos);
    end;

    Edit4.Text := IntToStr(Pos);
 
  finally
    CloseFile(F);
  end;
end;

Gruß Hawkeye

[edit=Sharky]Session-ID aus dem Link entfernt. Mfg, Sharky[/edit]