Um Festzustellen, ob eine Zeile leer ist reicht es aus,
TrimRight() zu verwenden.
TrimRight() ist schneller als Trim(), da die Funktion weniger zu tun hat.
Noch schneller geht es mit folgender (ungetesteter) Funktion.
Anstatt die Leerzeichen, Tabs,... wirklich zu entfernen, wird nur geprüft,
ob ein String nur "Weißraum" enthält.
Delphi-Quellcode:
function IsWhiteSpace(
const S:
string): Boolean;
var
I: Integer;
begin
I := Length(S);
while (I > 0)
and (S[I] <= '
')
do Dec(I);
Result := (I = 0);
end;