Ist bestimmt etwas umständlicher und so, aber wie gesagt, ich bin blutiger Anfänger! (;
Ich verstehe nicht, warum "Anfänger" scheinbar immer gleichbedeutend mit "keine Einrückung" ist.
Oder was sollen solche Sachen? Wer soll das lesen, ohne einen Knoten im Hirn zu bekommen?
Delphi-Quellcode:
edEinsatz.text := inttostr(Einsatz);
if h>=1 then
begin
h:=h-1;
btComputerClick(Sender);
end;
end;
end;
procedure TForm1.btZurueckClick(Sender: TObject);
begin
c:=0;
lbversuche.caption := '';
end;
procedure TForm1.edVersucheChange(Sender: TObject);
begin
If edVersuche.text = '' then
begin
edVersuche.text := '1';
end;
end;
procedure TForm1.btBilanzbackClick(Sender: TObject);
begin
gewinn:=0;
lbgewinn.caption:='';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;