Überprüfen ob alle Zeilen vorhanden sind

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, capo.

Die Prüfung auf doppelte (aufeinander folgende) oder leere Zeilen funktioniert vom Prinzip her so:

Delphi-Quellcode:

procedure CheckText(fn: TFileName);
var
  tf: TextFile;
  index, lineCount: Integer;
  lines: array [0..1] of String;
begin
  lines[0] := '';
  lines[1] := '';
  lineCount := 0;
  index := 0;
  AssignFile(tf, fn);
  Reset(tf);
  while not Eof(tf) do
  begin
    Inc(lineCount);
    ReadLn(tf, lines[index]);
    // Test auf Leere
    if line[index] = '' then
      DoEmptyLine(lineCount) else
    // Test auf Gleichheit
    if lines[0] = lines[1] then
      DoSameLine(lineCount, lines[index])
    // Sonst
      DoLine(lineCount, lines[index]);
    index := 1 - index;
  end;
  CloseFile(tf);
end;

Freundliche Grüße vom marabu