eingabe in edit schon vorhanden?

[ph0]

hallo,
in einem edit feld

Delphi-Quellcode:

anzahl:=anzahl+1;
daten[anzahl].name:=edit1.Text;

werden namen von produkten eingegeben, die ich dann in einer combobox gespeichert habe.

Delphi-Quellcode:

combobox1.clear;
for i:=1 to anzahl do
combobox1.Items.Add(daten[i].name)

wie kann ich jz eine abfrage machen wenn ein name schon in der combobox verwendet zum beispiel suppe, dass dieser artikel nicht noch einmal eingetragen werden darf?
gruß

[Sharky]

Zitat:

Zitat von ph0

... ... wie kann ich jz eine abfrage machen wenn ein name schon in der combobox verwendet ...

Hai ph0,

schaue Dir mal IndexOf der Items der TComboBox an.

[ph0]

habe es jz hiermit versucht:

Delphi-Quellcode:

var i : integer;
    gefunden : bool;
begin
  gefunden := false;
  for i := 0 to ComboBox1.Items.Count-1 do
    if ComboBox1.Items[i] = Edit1.Text then gefunden := true;
  if not gefunden then ShowMessage('Gibts nicht!');
end;

wenn ich das ganze aber umdrehe:

Delphi-Quellcode:

  for i := 0 to ComboBox1.Items.Count-1 do
    if ComboBox1.Items[i] = Edit1.Text then gefunden:=true
    if not gefunden then
    begin
    combobox1.clear;
    for i:=1 to anzahl do
    combobox1.Items.Add(daten[i].name);
    end

dann wird es auch eingetragen, obwohl der name bereits vorhanden ist. (kleiner denkfehler?)

[Helmi]

Hallo,

Sharky hat dir die Lösung eigentlich schon geschrieben.
Mit "IndexOf" gehts kanns einfach.

Hier mal ein Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;

begin
  S := Edit1.Text;

  with ComboBox1.Items do
    begin
      If IndexOf(S) = -1 then
        Add(S)
      else
        ShowMessage('schon drin');
    end;
end;

[ph0]

ok danke jz klappts :)

[Helmi]

Zitat:

Zitat von ph0

ok danke jz klappts :)

Das weiss ich - habs ja schliesslich geprüft

aber weisst du auch wie das geht? - was IndexOf macht?