Forum: Object-Pascal / Delphi-Language
by DeddyH,
27. Apr 2011
Das steht in Beitrag 9 und 10. Liest Du auch, was andere schreiben?
Forum: Object-Pascal / Delphi-Language
by DeddyH,
27. Apr 2011
Dann schau Dir einmal die Beiträge 8 - 10 an. Wie Dir das nicht auffallen konnte :stupid:
Forum: Object-Pascal / Delphi-Language
by DeddyH,
26. Apr 2011
Oder so (allerdings ohne großartige Fehlerbehandlung):
procedure TForm1.Button1Click(Sender: TObject);
const
Captions: array of Char = ('x', 'o');
begin
Druecken;
(Sender as TButton).Caption := Captions;
if t > 1 then
t := 0;