wie kann ich bestimmte Infos aus Textdokument einlesen?

[Amateurprofi]

Hallo Lee,

natürlich kriegst du eine Fehlermeldung, wenn du in einer Form namens "Form1" eine Prozedur hast, die "TMain.Test" heißt.

Benenne sie um in TForm1.Test oder nenne sie TForm1.Button2Click und alles wird gut.

Zur Access Violation.
Na klar kommt die.

Du hast das ja alles so schön vereinfacht und die Funktionen, die ursprünglich innerhalb von "Test" lagen, ausgelagert.

Dann hast du warscheinlich eine Fehlermeldung "list unbekannt" oder so erhalten und zur Abhilfe in den ausgelagerten Funktionen list noch einmal deklariert.
So funktioniert das halt nicht.

Mein Tipp:
Höre auf mit deinen Verschlimmbesserungen.
Nimm die Prozedur "TMain.Test", benenne sie um in "TForm1.Button2Click", und dann wird das funktionieren.

[Boyington]

Zitat von Amateurprofi:

Hallo Lee,

natürlich kriegst du eine Fehlermeldung, wenn du in einer Form namens "Form1" eine Prozedur hast, die "TMain.Test" heißt.

Benenne sie um in TForm1.Test oder nenne sie TForm1.Button2Click und alles wird gut.

Zur Access Violation.
Na klar kommt die.

Du hast das ja alles so schön vereinfacht und die Funktionen, die ursprünglich innerhalb von "Test" lagen, ausgelagert.

Dann hast du warscheinlich eine Fehlermeldung "list unbekannt" oder so erhalten und zur Abhilfe in den ausgelagerten Funktionen list noch einmal deklariert.
So funktioniert das halt nicht.

Mein Tipp:
Höre auf mit deinen Verschlimmbesserungen.
Nimm die Prozedur "TMain.Test", benenne sie um in "TForm1.Button2Click", und dann wird das funktionieren.

Guten Abend Klaus,
heute funktioniert nicht nur dein original Programm bei mir perfekt, sondern auch meine eigne "Verschlimmbessserung"

Nochmals vielen Dank für deine nette Hilfe!

Gruss
Lee

[Boyington]

Guten Morgen alle,
ich hab wieder ne Frage:
wie kann ich eine dynamische Array (hier z.B Dreiecke: array of TDreieck) in TList umwandeln?
Also alle gerade eingelesenen Koordinaten sollen in TList gespeichert werden, damit kann ich später eine vorhandene Funktion (z.B function Abstand(var MinAbstand: real; Messpos, Blick: TVektor; hList: TList): integer; ) verwenden.

Danke dafür!

Gruss
Lee

[Bummi]

Die Optionen hängen etwas von Deiner Delphiversion ab, ab 2009 kannst Du Records in Listen verwenden, vorher Klassen in TList oder TObjectList...

Delphi-Quellcode:

uses
  ......,Generics.Collections,Contnrs;

type
   TVektor = record
     x, y, z: real;
   end;
   TDreieck = record
     n: TVektor; // n ist Normalvektor
     p: array[1..3] of TVektor; //p hat Koordinaten von 3 Eckpunkten
   end;

   TDreieckOld = Class
     n: TVektor; // n ist Normalvektor
     p: array[1..3] of TVektor; //p hat Koordinaten von 3 Eckpunkten
   end;

  TDreieckListNew=TList<TDreieck>;
  TDreieckListOld=TObjectList;

[Boyington]

Zitat von Bummi:

Die Optionen hängen etwas von Deiner Delphiversion ab, ab 2009 kannst Du Records in Listen verwenden, vorher Klassen in TList oder TObjectList...

Delphi-Quellcode:

uses
  ......,Generics.Collections,Contnrs;

type
   TVektor = record
     x, y, z: real;
   end;
   TDreieck = record
     n: TVektor; // n ist Normalvektor
     p: array[1..3] of TVektor; //p hat Koordinaten von 3 Eckpunkten
   end;

   TDreieckOld = Class
     n: TVektor; // n ist Normalvektor
     p: array[1..3] of TVektor; //p hat Koordinaten von 3 Eckpunkten
   end;

  TDreieckListNew=TList<TDreieck>;
  TDreieckListOld=TObjectList;

danke für die Antwort, Bummi
Aber ich verwende und besitze im Moment nur Delphi7, wie kann ich dynamischen Array mit so alter Delphiversion in TList einfach umwandeln?

Gruss
Lee