Auto

[Sierra]

Und wie geht das mit dem in einer Prozedur auslagern?

[tigerman33]

Delphi-Quellcode:

procedure XYZ(Parameter: Parametertyp);
begin
...
end;

Weitaus besser kann dir da aber mit Sicherheit die OH weiterhelfen. Lies dir durch was die dazu zu sagen hat. Wenn du dann immer noch Fragen dazu hast, werde ich dir gerne weiterhelfen.

[Sierra]

Vielen Dank schonmal, aber ich weiss jetzt leider nicht, was mit

(Parameter: Parametertyp); gemeint ist.

[tigerman33]

Beispiel:

Delphi-Quellcode:

procedure MachWas(Parameter1: integer; Parameter2: string);
begin
  if Parameter1 > 0 then
    if Parameter2 = '' then
      ShowMessage('Eigentlich recht sinnloser Code.');
end;

Jetzt kannst du die Prozedur z.B. so aufrufen:
MachWas(Form1.Left,Form1.Caption); Das ist genau das gleiche als ob du geschrieben hättest:

Delphi-Quellcode:

if Form1.Left > 0 then
  if Form1.Caption = '' then 
    ShowMessage('Eigentlich recht sinnlose Code.');

Nur besser.

Aber wie gesagt, schau mal in die Delphi Online-Hilfe.

[Sierra]

Das Problem ist aber, dass das Programm keine Formularanwendung ist, sondern eine Konsolenanwendung.

[tigerman33]

Ja und? Deshalb kannst du doch trotzdem Prozeduren und Funktionen schreiben! Wo ist also das Problem?

[Sierra]

Irgendwie bekomme ich das alles nicht hin.
Der meint unter anderem, dass eine Deklaration erwartet wird.
Ich verzweifle hier noch.

[Speedmaster]

Mein Lieblingslink: >>Hier<<

[tigerman33]

Poste noch mal deinen Code. Den bei dem der Compiler das mit der Deklaration sagt.

[Sierra]

Endlich habe ich es geschafft.

Delphi-Quellcode:

program pRad4;

{$APPTYPE CONSOLE} 

uses
  mSum;

var
  meinBildschirm: Bildschirm; 
  meinBuntstift : Buntstift; 
  meineMaus     : Maus;
  Koordinaten, i   : Integer;

begin
//Initialisierung
  meinBildschirm:= Bildschirm.init;
  meinBuntstift := Buntstift.init;
  meineMaus     := Maus.init;

//Aktionsteil
begin
for Koordinaten:= 200 to 900 do
      begin
with meinBuntstift do
   begin
  bewegeBis(Koordinaten,400);
  zeichneKreis(50);
  bewegeBis(Koordinaten,400);
  runter;
  dreheUm(-1);
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten,400);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten,400);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten,400);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten,400);
  dreheUm(-45); 
  runter;
  bewegeUm(50);
  hoch; 
  bewegeBis(Koordinaten,400);
  dreheUm(-45);
  runter;
  bewegeUm(50); 
  hoch;
  bewegeBis(Koordinaten,400);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten,400);
  dreheUm(-45);
  runter; 
  bewegeUm(50);
  hoch;

  bewegeBis(Koordinaten+200,400);
  zeichneKreis(50);
  bewegeBis(Koordinaten+200,400);
  runter;
  dreheUm(-1);
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten+200,400);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten+200,400);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten+200,400);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten+200,400);
  dreheUm(-45); 
  runter;
  bewegeUm(50);
  hoch; 
  bewegeBis(Koordinaten+200,400);
  dreheUm(-45);
  runter;
  bewegeUm(50); 
  hoch;
  bewegeBis(Koordinaten+200,400);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten+200,400);
  dreheUm(-45);
  runter; 
  bewegeUm(50);
  hoch;
warte(10);

repeat
until meineMaus.istGedrueckt;

with meinBildschirm do
     begin
     loescheAlles;
   end;
     end;
       end;
         end;
//Aufräumen
  meinBildschirm.gibFrei;
  meinBuntstift.gibFrei;
  meineMaus.gibFrei

end.

Ihr könnt es euch auch direkt downloaden.

Rechtsklick - Speichern unter.

Zum Bewegen der Räder, einfach die Linke Maustaste gedrückt halten.

Wie kann ich denn auch noch ein "Auto" auf die Räder setzen?
Muss das in der gleichen Schleife oder in einer neuen Schleife geschehen?