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