Objekt erstellen

[maximus Caesar]

Delphi-Quellcode:

unit WegBearbeiten;

////////////////////////////////////////////////////////////////////////////////////
/////////////////////// Hier wird alles mit dem Wegsystem geregelt /////////////////
////////////////////////////////////////////////////////////////////////////////////

interface

uses
 SysUtils, Windows, Graphics, Weg, tokfuncs, Grids;

type
 TTyp1=class(TStringGrid);
 procedure Start;

var Weg1:TWegObjekt;


implementation

uses Unit1;

procedure Start;
begin
  try                                                                                       //f#1
   Weg1 := TWegObjekt.Create(nil);
  except
    MessageBox(Weg1.Handle,'Fehler #1, Objekt konnte nicht erstellt werden!','Fehler',16);
  end;
end;

Funktioniert!!! DANKE!!!!!