|
Registriert seit: 23. Jan 2008
3.686 Beiträge
Delphi 2007 Enterprise
|
AW: :s
31. Aug 2011, 02:27
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
freq, dur: Integer;
begin
if (edit1.text='') or (edit2.text='') then
begin
// foo man chou
end;
end
else
begin
freq := strtoint(edit1.Text);
dur := strtoint(edit2.Text);
windows.beep(freq,dur);
end;
SO sieht das "formatiert" aus. Immer noch komisch, aber wenigstens Style-Guide-Komisch.
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
Geändert von Medium (31. Aug 2011 um 02:30 Uhr)
|