strings einer combobox vergleichen

[H.Bothur]

Moin,

wahrscheinlich gibt es 1000 bessere Lösungen aber wie wäre es damit

Delphi-Quellcode:

 
function NameBereitsVorhanden(const SuchString: String): Boolean;
var
  i: integer;
  gefunden: Boolean;
begin
  gefunden := false;
  for i := 0 to ETabelle.Count -1 do
  begin
    if SuchString := ETabelle:.String[i] then gefunden := true;
  end;
  Result := gefunden
end;

         //
          with etabelle do
            begin
              if i>=rowcount then rowcount:=rowcount+1;
              cells[1,i]:=s1;
              cells[2,i]:=s2;
              cells[3,i]:=s3;
              cells[4,i]:=s4;
              cells[5,i]:=s5;
            end;
          //standortname in combobox schreiben
            d1:=s1;
            if not NameBereitsVorhanden(etabelle.Cells[1,i]) then s_standortname.Items.Add(etabelle.Cells[1,i]);

Das ist Pseudo-Code - also nicht kopieren, aber der Ansatz ist eine Idee

gruß
hans