Thema
:
Delphi
Einrücken ::: ::: Wie rückt ihr ein?
Einzelnen Beitrag anzeigen
Sunlight7
Registriert seit: 17. Sep 2006
Ort: Sonnensystem, Zentral
1.522 Beiträge
Delphi 5 Standard
#
50
So rücke ich ein
15. Nov 2006, 20:52
Meine Schreibweise:
zusammenfalten
·
markieren
Delphi-Quellcode:
function
Foo(a, b, c, d:Integer):Integer;
var
x, y:Integer;
begin
If
a>b
then
// 1. If groß
if
a * b>c+d
then
begin
// Verschachtelte ifs klein
For
x:=0
to
Width-1
do
// Das gleiche mit For
for
y:=0
to
Height-1
do
begin
Inc(a, 1);
Dec
(b, 1);
end
;
end
;
end
;
Windows: Ja - Microsoft: Nein ->
www.ReactOS.org
Zitat
Sunlight7
Öffentliches Profil ansehen
Besuche die Homepage von Sunlight7!
Mehr Beiträge von Sunlight7 finden