|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.540 Beiträge
Delphi 11 Alexandria
|
AW: Programm Hilfe
30. Okt 2011, 10:12
Dann machst Du wohl was falsch.
[edit] Ein Beispiel für die generelle Logik:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Zahl, Zaehler: integer;
begin
Zahl := 10000;
Zaehler := 0;
repeat
Zahl := Zahl div 10;
Zaehler := Zaehler + 1;
until Zahl < 10;
ShowMessage('Duchläufe: ' + IntToStr(Zaehler));
end;
[/edit]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
Geändert von DeddyH (30. Okt 2011 um 10:14 Uhr)
|