[delphi] problem trywialny

to jest tylko program treningoy;)
mam mały problem a mianowicie jak w tym źródełku dodać komunikat
showmessage('bzdura');

VAR  wynik: integer; begin     if edit1.Text=edit2.Text then     for wynik :=0 to 2 do     Tedit(findcomponent('edit'+ inttostr(wynik))).Text:= 'bzdura'     showmessage('bzdura')  //o to mi chodzi ale nie działa:(     else       wynik:= strtoint(edit1.text) + strtoint(edit2.text);       label1.Caption:= inttostr(wynik);     end;

Asdef www.kanalia.toya.net.pl

---

Nie wiem czy dobrze zrozumiałem co chciałeś osiągnąć, w każdym razie sprawdź sobie to:
VAR  wynik: integer; begin  if edit1.Text=edit2.Text    then begin           for wynik :=0 to 2 do             Tedit(findcomponent('edit'+ inttostr(wynik))).Text:= 'bzdura';           showmessage('bzdura')  //o to mi chodzi ale nie działa         end    else begin           wynik:= strtoint(edit1.text) + strtoint(edit2.text);           label1.Caption:= inttostr(wynik);         end;
Żeby wykonać kilka instrukcji po then lub else - musisz ująć je w blok begin - end, w przeciwnym razie zostanie wykonana tylko jedna instrukcja.

ICQ : 245-363-570

VAR
wynik: integer;
begin
if edit1.Text=edit2.Text
then begin
for wynik :=0 to 2 do BEGIN
Tedit(findcomponent('edit'+ inttostr(wynik))).Text:= 'bzdura';
showmessage('bzdura') //o to mi chodzi ale nie działa
END;
end
else begin
wynik:= strtoint(edit1.text) + strtoint(edit2.text);
label1.Caption:= inttostr(wynik);
end;

_________________________

www.webpacket.net

dzięki wam!, aż dziwne że sam na to nie wpadłem :oops:

dzięki za wyjaśnienie:)

Ps. OXI - a tak w prawdzie to nic nie chciałem osiągnąć (ale o to mi chodziło) tak tylko sobie przypominam po półrocznej przerwie:lol:

Asdef www.kanalia.toya.net.pl

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl