mehrere strings vergleichen...

[davtix]

hi :),

tja meistens scheiterts am kleinen ... ich wollte mal mehrere eingabe möglichkeiten vergleichen

also if 'test1' or 'test2' or 'test3' = label1.caption then...

also das or funzt nicht und nen timer mit listbox um die liste abzuarbeiten wollte ich nicht unbedingt erstellen.

könnte mir da bitte jemand weiterhelfen??

[Puke]

Ohne genau zu wissen was du meinst...

Delphi-Quellcode:

if (label1.caption='test1') or (label1.caption='test2') or (label1.caption='test3') then ...

Vielleicht trifft es ja?

Gruß Puke

[mkinzler]

Delphi-Quellcode:

if (label1.caption = 'test1') or
   (label1.caption = 'test2') or
   (label1.caption = 'test3') ...
then 
   ...

[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 .... :thumb: