Das Haus vom Nikolaus Konsolenanwendung

[hotkey]

Was meinst du mit "Auskommentieren" ?

[Luckie]

Die Codezeile in einen Kommentar umwandeln. Alternativ kannst du sie auch löschen. Aber zum Testen kommentiert man sie nur aus, damit man sie nicht noch mal schreiben muss, wenn sie doch im Code bleiben soll.

[hotkey]

Delphi-Quellcode:

program Project2;

uses
  Forms;

{$AppType Console}
var i,j:Integer;
begin
  for i:=1 to 10 do
  begin
    writeln('x');
    readln; // Wenn ich das lösche , funktioniert garnix mehr
    if (i=10) then
    begin
      for j:=1 to 10 do
        write('x');
      read; -> // Wenn ich das lösche , erscheint wieder nur ein x..
    end;
  end;
end.

[himitsu]

Zitat von hotkey:

// Wenn ich das lösche , funktioniert garnix mehr

Das glaub ich dir nicht.
Vermutlich ist das Programm nur so schnell fertig, daß man es nicht sieht.
Das könnte man aber alles mit dem Debugger prüfen.

Delphi-Quellcode:

program Project2;


{$AppType Console}
var i,j:Integer;
begin
  for i:=1 to 10 do
  begin
    writeln('x');
    if (i=10) then
    begin
      for j:=1 to 10 do
        write('x');
    end;
  end;
  ReadLn;
end.

Wozu ist eigentlich die Unit Forms enthalten?
Ich denke du willst eine Konsolenanwendung und keine VCL-Anwendung erstellen?

[hotkey]

Ich habe doch ne Konsolenanwendung , hab keine VLC-Anwendung , das ist nciht das Problem..

[Luckie]

Willst du einen Beweis?

[Luckie]

Mit einem Fenster ist es wesentlich einfacher:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  case Button1.Tag of
    0: begin
         Canvas.MoveTo(50,600);
         Canvas.LineTo(300,600);
       end;
    1: begin
         Canvas.LineTo(300, 350);
       end;
    2: begin
         Canvas.LineTo(50, 350);
       end;
    3: begin
         Canvas.LineTo(175, 200);
       end;
    4: begin
         Canvas.LineTo(300, 350);
       end;
    5: begin
         Canvas.LineTo(50,600);
       end;
    6: begin
         Canvas.LineTo(50, 350);
       end;
    7: begin
         Canvas.LineTo(300,600);
       end;
  end;
  Button1.Tag := Button1.Tag + 1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Tag := 0;
end;

Die Lösung ist nicht optimiert, sondern nur mal so schnell in zwei Minuten hingetippt.