Hallo,
Delphi-Quellcode:
var
Z: Cardinal;
IstDrin: Boolean;
begin
IstDrin := false;
for Z := 0 to Length(Array) do
if (Array[Z] = 'Text') then
begin
IstDrin := true;
break;
end;
end;
So könnte es funktionieren (habe es nicht getestet).
Gruß,
ManuMF
[edit]Huch! Kein Kasten?[/edit]