ich hab noch en problem mit findcomponent.
ich hab folgendes geschrieben:
Delphi-Quellcode:
procedure TForm1.Button11Click(Sender: TObject);
var i: integer;
begin
if edit15.text='' then
begin
for i:=6 to 10 do
begin
If (FindComponent('label'+IntToStr(i)) as TLabel).caption='1' then
If (FindComponent('label'+IntToStr(i)) as TLabel).caption='2' then
if (FindComponent('label'+IntToStr(i)) as TLabel).caption='3' then
if (FindComponent('label'+IntToStr(i)) as TLabel).caption='4' then
begin
disable;
Button1.Enabled:=true;
editnummer.Text:='0';
Edit15.Text:='30';
end;
end;
end;
end;
es funktioniert aba irgendwie net. kann mir einer sagen was da falsch is?
[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]