Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Harry M.,
6. Jan 2007
procedure Bla;
var
I: Integer;
begin
for I := Low(YourArray2) to high(YourArray2) do
if IsInMyArray(YourArray2) then
showmessage(YourArray2 + ' is drinne')
else
showmessage(YourArray2 + ' nö, is nich');
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Harry M.,
6. Jan 2007
function IsInArray(S: String): Boolean;
var
I: Integer;
begin
Result := False;
for I := Low(MyArray) to High(MyArray) do
if MyArray = S then begin
Result := true;
break;
end;