Also ein AND macht deinen Befehl ja nur zum Booleschen Ausruck (Wahr/Falsch).
Das macht ja nun gar keinen Sinn. Du mußt einfach die Befehle, die du im ersen Fall ausführen willst, in
Begin..End setzen.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = Edit2.Text then
Begin
winexec(PCHar('WINVER.EXE'), SW_SHOWNORMAL) ;
Form1.Close;
End
else Label1.Caption := 'klappt nicht';
end;
Axel Sefranek
A programmer started to cuss, cause getting to sleep was a fuss.
As he lay there in bed, looping round in his head
was: while(!asleep()) ++sheep;