Objekt erstellen

[maximus Caesar]

Hallo!
Ich habe folgendes Problem:
Ich will ein Objekt erzeugen, das TWegObjekt heißt und in der Unit Weg steht, und zwar mit der Variable Weg1.
sobald ich es jedoch versuche, bekomme ich eine access violation.
Hier der Programm text:

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
   TWegObjekt.Create(Weg1.Owner);
  except
    MessageBox(Weg1.Handle,'Fehler #1, Objekt konnte nicht erstellt werden!','Fehler',16);
  end;
end;

[Die Muhkuh]

Hi,

das musst du so machen:

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(<Parameter>)
  except
    MessageBox(Weg1.Handle,'Fehler #1, Objekt konnte nicht erstellt werden!','Fehler',16);
  end;
end;

[citybreaker]

--- Edit ---
Ok, war ist falsch. Ich denke Spider hat mal wieder Recht.

[mirage228]

Hi,

Ein Objekt erstellt man folgendermaßen:

Variable := TKlasse.Create(Argumente); Also muss es bei Dir heissen:
  Weg1 := TWegObjekt.Create(nil); Nun kannst Du wahrs. nicht "Weg1.Owner" als Paramter nehmen, da Weg1 wohl nicht belegt ist, soweit ich das sehe.
Da musste Dir was anderes einfallen lassen.

mfG
mirage228

Edit: Und was soll das denn sein: Hat sich erledigt, hab das ; hinter dem class(TStringGrid) übersehen...

Delphi-Quellcode:

type 
  TTyp1 = class(TStringGrid); 
  procedure Start;

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