Konsolenanwendung: prozedur / funktion

[cherry]

Hi ich nochmals...

Kann man in Delphi Konsolenanwendungen keine eigenen Prozeduren und Funktionen erstellen? wen ja: Wie? und wenn nein: Wiso?
;-)

Gruss

[sirius]

Klar kann man das.

Delphi-Quellcode:

program Konsolenanwendung;

uses windows,...;

{$AppType Console}

function test:integer;
begin
  result:=5;
end;



{main}
begin
  writeln(test);
  readln;
end.

Aber besser ist es zusätzliche Units zu verwenden.

[Tyrael Y.]

Klar kannst du das...wenn du eine neue Konsolenanwendung anlegst sieht es folgendermassen aus.

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Unit2;

var varMyClass;
begin
  

  try
  { TODO -oEntwickler -cKonsole Main : Hier Code einfügen }

   varMayClass := TMyClass.Create();
   try
    varMyClass.TuWas();
   finally
     varMYclass.Free;
   end;

   MachWas();
   NochWas();
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

Da wo jetzt "Hier Code einfügen" steht da kannst du eigenen Code einfügen.

Du kannst, um es auch bissel modularer zu halten dir jetzt eine neue Unit machen, dort Klassen, Funktionen usw. definieren und sie dann von hier aus aufrufen.

Delphi-Quellcode:

unit Unit2;

interface

type 
  TMyClass = class
   procedure TuWas();
end; 

function MachWas(): TEinTyp;

procedure NochWas();

implementation

end.

[taaktaak]

Moin, Moin,

warum sollte das nicht gehen? Schau mal hier...

Delphi-Quellcode:

program Project1;

{$apptype console}

uses Sysutils;

  procedure HelloWorld;
  begin
    writeln('hello world');
  end;

begin
  HelloWorld;
  readln;
end.

[cherry]

Vielen Dank euch...

Wusste nicht wo die funktion hinschreiben... ich versuchte es im begin / end teil...
da ist es offensichtlich fehl am Platz....

Dank Euch...

[SirThornberry]

Zitat:

Zitat von cherry

Hi ich nochmals...

Kann man in Delphi Konsolenanwendungen keine eigenen Prozeduren und Funktionen erstellen? wen ja: Wie? und wenn nein: Wiso?
;-)

Gruss

Ich liebe die deutsche Sprache:

Zitat:

Kann man...KEINE...erstellen? wenn ja: Wie?

In dem man es einfach nicht macht :wink:

[cherry]

:-D lol