TWideStriblist kann nicht zu TStringlist zugewiesen werden

[DeddyH]

Zitat:

Delphi-Quellcode:

i := 0;
  Repeat
    Begin
      If (Pos('Cellinfo', xListe[i])) > 0 Then
        xListe.Delete(i);
      Inc(i);
    End;
  Until xListe.Count = i;

Bist Du sicher, dass das so funktioniert? Ich würde eher eine absteigende for-Schleife verwenden.

Delphi-Quellcode:

for i := xliste.Count - 1 downto 0 do
  Begin
    If (Pos('Cellinfo', xListe[i])) > 0 Then
      xListe.Delete(i);
  End;