|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
Re: Testauswertungsprogramm - Variablen umändern
12. Jun 2009, 12:32
Jepp, kann es.
Delphi-Quellcode:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var Zahl: integer;
begin
try
{ TODO -oEntwickler -cKonsole Main : Hier Code einfügen }
write(' Zahl: ');
readln(Zahl);
writeln(' Zahl war ',Zahl);
except
on E: Exception do
Writeln(E.Classname, ' : ', E. Message);
end;
readln;
end.
[edit] Einrückung korrigiert [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
|