Löschen doppelter Zahlen

[hitzi]

Hast doch dann trotzdem noch eine Schleife drin zum Überprüfen. Oder reicht dir eine Schleife nicht?

MfG Hitzi

[n00b_on_knees]

mir schon, aber meinem Professor nich....lol.

[Tpercon]

Hier hast du so eine umständliche Lösung, die deinen Ansprüchen genügen sollte:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, j: integer;
    s: string;
    ts: TStringList;
begin
  ts := TStringList.Create;
  try
  Caption := 'Starte';
  for i := 0 to Memo1.Lines.Count - 1 do
    ts.Add(Memo1.Lines.Strings[i]);
  if ts.Count > 0 then begin
    i := 0;
    repeat
      s := ts.Strings[i];
      inc(i);
      for j := ts.Count - 1 downto i do begin
        if ts.Strings[j] = s then begin
          ts.Delete(j);
        end;
      end;
    until i >= ts.Count-1;
  end;
  Memo1.Lines.Clear;
  for i := 0 to ts.Count - 1 do
    Memo1.Lines.Add(ts.Strings[i]);
  Caption := 'Fertig';
  finally
    ts.Free;
  end;
end;

Ansonsten kannst du das auch mal intensiver selbst probieren, war jetzt ne Arbeit von 2 Minuten.

[n00b_on_knees]

okey danke, werd mir das mal genauer ansehen... kenn das ja nichmal so genau wie du da das gemacht hast :shock:

[Tpercon]

Wenn dir was daran unklar ist, dann frage.