Kein Zugriff auf Proceduren und Functionen

[Dalai]

Kannst du mal konkret machen, welche Funktionen du gern aufrufen würdest, und dies nicht funktioniert? Soweit ich das überblicke gibt's bis auf eine Ausnahme in den Units nur jeweils ein oder zwei Klassen. Die haben natürlich ihre Methoden, aber um die benutzen zu können, muss man schon eine Instanz der jeweiligen Klasse erzeugen, also ganz klassisch ein Objekt erzeugen:

Delphi-Quellcode:

var objekt: TKlasse;
begin
  objekt:= TKlasse.Create;
  try
    objekt.Methode1;
    objekt.Methode2(mit_parameter);
  finally
    objekt.Free;
  end;
end;

und so weiter.

Zitat von Perlsau:

Das in der Zip-Datei war doch dein vollständiges Projekt, oder etwa nicht?

Davon gehe ich nicht aus. Die Dateien sind von 1996/1997, was zwar nicht zwingend dagegenspricht, aber es findet sich ein Copyright von jemandem aus den USA am Anfang der Units.

MfG Dalai

[Perlsau]

Zitat von Dalai:

Zitat von Perlsau:

Das in der Zip-Datei war doch dein vollständiges Projekt, oder etwa nicht?

Davon gehe ich nicht aus. Die Dateien sind von 1996/1997, was zwar nicht zwingend dagegenspricht, aber es findet sich ein Copyright von jemandem aus den USA am Anfang der Units.

Stimmt, darauf habe ich gar nicht geachtet.

Wendelin schrieb aber doch, wie ich es verstand, er könne von der Unit position aus nicht auf die anderen Units zugreifen, und das kann erstmal auch nicht gehen, wenn er sie nicht in die USES-Klausel aufnimmt. Doch offensichtlich habe ich den Satz falsch interpretiert: er kann also nicht auf die Methoden in position.pas zugreifen. Da war meine Aufmerksamkeit wohl gerade im Keller Kohlen schaufeln

Die Lösung hast du ja bereits hingeschrieben. Ich mach's nochmal ein bißchen konkreter:

@Wendelin

In position.pas gibt es die Klasse TChessPosition.

type
TChessPosition = class

Nun erstellst du in der Unit, in der du diese Klasse verwenden willst, eine Variable vom Typ dieser Klasse, entweder in einer deiner eigenen Methoden oder global, wenn du diese Klasse öfters in deiner Unit oder deinem Mainform benötigst:

Delphi-Quellcode:

...
Implementation

Uses
  Position;

Var
  ChessPos : TChessPosition;

Procedure TFormMain.Create(Sender: TObject);
begin
  ChessPos := TChessPosition.Create;
end;

Procedure TFormMain.Destroy(Sender: TObject);
begin
  ChessPos.Free;
end;

[himitsu]

Laut Beschreibung ist es fast ein vollständiges Projekt mit Demokomponente.
Nur die Projektdatei (Package) muß man selber erstellen, oder man nimmt die Units in ein anderes bestehendes Designtime-Package auf. So, wie es praktisch in der Beschreibung erwähnt wurde.

[wendelin]

Hallo Perlsau,

wahrscheinlich habe ich mich falsch ausgedrückt.
In der Zip-Datei waren ausschließlich die Pas.-Sourcen & Resourcen-Dateien der "ChessDiagram2D"-Komponente welche ein Schachbrett mit
Figuren in der Ausgangsstellung zeigt.
Mit Hilfe dieser Komp. und den in ihren Units vorhandenen Funkt.& Proc.
möchte ich mein Programm "PGN-Filter" (in Delphi-Praxis veröffentlicht) erweitern und dann wieder in "Delphi-Praxis" veröffentlichen.
Diesmal OHNE jede Beschränkung.

Wolfgang

[Perlsau]

Nein, du hast dich nicht falsch ausgedrückt, höchstens ein bißchen kompliziert, so daß ich nicht gleich kapiert habe, was du eigentlich meinst.

[wendelin]

Hallo Perlsau,Hallo Dalei
Eure Antwort :

Delphi-Quellcode:

Implementation

Uses
  Position;

Var
  ChessPos : TChessPosition;

Procedure TFormMain.Create(Sender: TObject);
begin
  ChessPos := TChessPosition.Create;
end;

Procedure TFormMain.Destroy(Sender: TObject);
begin
  ChessPos.Free;
end;

ist wahrscheinlich genau das, was ich gesucht habe, ich werde es sofort ausprobieren.
nochmals Danke

Wolfgang

[wendelin]

Hallo,
es funktioniert und ich kann jetzt auf alle Proc's & Func's zugreifen.

Wolfgang

[himitsu]

Dann solltest du auch dringend ein Buch/Tutorial zum Thema OOP durchlesen, denn ohne dieses über 20 Jahre alte Grundwissen geht garnichts.

[Perlsau]

Zitat von himitsu:

Dann solltest du auch dringend ein Buch/Tutorial zum Thema OOP durchlesen, denn ohne dieses über 20 Jahre alte Grundwissen geht garnichts.

Dem schließe ich mich vorbehaltlos an, denn das ist die absolute Wahrheit

• Ein sehr gutes Tutorial findest du im Delphi-Treff: Klassen und Objekte.
• Dann gibt's da noch dieses Berliner Gymnasium, das ebenfalls eine Einführung bietet, wenngleich auch etwas akademisch gehalten.
• Die Uni Leipzig bietet ebenfalls einen Kurs in OOP für Delphi an.
• Natürlich dürfen die Delphi-Tutorials nicht in dieser Aufzählung fehlen.
• Auch die PDF-Datei Was die OOP-Tutorials verschweigen von Christian Rehn, der uns als R2C2 wohlbekannt ist, zählt zu den wertvollen deutschsprachigen Dokumenten im Zusammenhang mit OOP & Delphi.
• Und nicht zu vergessen die Seite Delphi-Lernen mit ihrer OOP-Einführung.

Solltest du nach der Lektüre dieser Tutorials noch immer "durstig" oder unwissend sein, liefert dir unser aller Lieblingstante gerne weitere Quellen.