Hilfe bei Stringlist.delete

[Franzelchen]

Hallo!

Ich habe ein Problem bei der Löschung von Einträgen in einer Stringlist. Die Stringlist sieht ungefähr so aus:
___________________________
Heimdal


A
S


Johann
__________________________________

Wie bekomme ich die Leerzeilen und die einzeln stehenden Buchstaben gelöscht.

Mein Ansatz ungefähr so:

For i = 0 to Stringlist-1
if length = 0 then Sringlist.delete(i)


Nach erfolgreicher Kompilierung wird Listenindex über Maximum angezeigt.
Wie kann ich das Problem lösen???
Wer hilft mir???
Danke!!

[DeddyH]

Delphi-Quellcode:

For i := Stringlist.Count -  1 downto 0 do
  if length(StringList[i]) < 2 then 
    Stringlist.delete(i);

[Franzelchen]

Ich bedanke mich für die schnelle Hilfe!!

[Franzelchen]

Jetzt hab ich den Code ausprobiert. Leider erscheint nach wie vor: Listenindex über Maximum

Anbei der vollständige Code:

[procedure TForm1.Button2Click(Sender: TObject);
var
SL :TStringList;
i :Integer;
begin
SL := TStringList.Create;
SL.LoadFromFile('StringList.tmp');
For i := SL.Count-1 downto 0 do;
If Length(SL[i]) < 2 then;
SL.Delete(i);
RichEdit2.Text := SL.Text;
SL.Free;
end;]

Kann mir jemand helfen??

[user0815]

Delphi-Quellcode:

i := 0;

  if sl <> nil then
  begin
    while i < sl.Count do
    if length(trim(sl[i])) < 2
     then sl.Delete(i)
      else inc(i);
  end;

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject); 
var 
SL :TStringList; 
i :Integer; 
begin 
  SL := TStringList.Create; 
  SL.LoadFromFile('StringList.tmp'); 
  For i := SL.Count-1 downto 0 do  // hier das ; gelöscht
    If Length(SL[i]) < 2 then  // hier auch
     SL.Delete(i); 
  RichEdit2.Text := SL.Text; 
  SL.Free; 
end;]

Grüße
Klaus

[marabu]

Hi,

besser so:

Delphi-Quellcode:

procedure CompactStrings(s: TStrings; maxLength: Integer = 0);
var
  i: Integer;
begin
  for i := Pred(s.Count) downto 0 do
    if Length(s[i] <= maxLength then
      s.Delete(i);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  with RichEdit do
  begin
    Lines.LoadFromFile('StringList.tmp');
    CompactStrings(Lines, 1);
  end;
end;

Grüße vom marabu

EDIT: Sorry, ich stand wohl im Abseits ...

[Franzelchen]

Das Löschen der Semikolon hinter do und then haben die Sache gerettet. :wall:

Es funktioniert fehlerfrei. Danke Klaus und allen die geholfen haben.