Konsolenanwendung: prozedur / funktion

[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.