leere Zeilen in Textdateien erkennen und löschen?

[oki]

Jo, was man beim schnellen tippen so alles nicht mehr bemerkt. Scho erstaunlich. Vielleicht alte Schule; ein Satz fängt immer groß an. :lol:

Gruß oki

[edit] ja, und to muß do heißen; und end hinter finally fehlt auch noch oki

[Blackeagle]

Code:

var sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.loadfromfile(Deinedatei);
    i := 0;
    while i < sl.Count do
    begin
      if sl[i] = '' then
        sl.Delete[i]     //   Zeile 463
      else
        Inc(i);   
    end;
  finally
    sl.free;
  end;
end;

[Error] mEagle6.pas(463): Not enough actual parameters

[Steve]

Hi,

Der Parameter der Funtkion muss in runden, nicht in eckigen Klammern übergeben werden. Delete(i) also.

Gruß
Stephan :dance: :xmas:

[jim_raynor]

sl.Delete(i)

Delete ist eine Funktion keine Array-Eigenschaft ;)