mehrere strings vergleichen...

[davtix]

ach sooo geht das ... und ich hab ewig rumgesucht und gebastelt ...

hab gerade das hier zusammen getippt

Code:

function FindDoublette(const AStrings: TStrings; const AText: String;
  CaseFlag: Boolean=False): Integer;
var
  I, C: Integer;
begin
  Result := AStrings.IndexOf(AText);

  if CaseFlag then
  begin
    C := Result;
    Result:=-1;
    for I:=C to AStrings.Count-1 do
      if AText=AStrings[I] then
      begin
        Result:=I;
        Break;
      end;
  end;
end;

iwert:=  FindDoublette(form7.listbox2.items ,form7.edit2.text);
if iwert > -1 then wertE2 :='003';

danke euch beiden für die schnelle hilfe ....