Procedure mit TForm1 in extra Unit?

[Matze]

Zitat von MCXSC:

[...] in der nur Funktionen/Przeduren sind, die sich rund um "die" Datenbank drehen (z.B. Löschen, Erstellen, Öffnen...) und so weiter.

Das sind Dinge, die gehören eigentlich in eine eigenständige Klasse und sollten mit der VCL nichts zu tun haben. Die eingelesenen Daten des Benutzers kannst du dann an die Methoden der Datenbank-Klasse übergeben und dort verarbeiten. Die Rückgabewerte kannst du dann wieder dem Benutzer präsentieren, d.h. die Ausgabe findet wieder außerhalb der Klasse statt.

Das ist mal das verdeutlicht, was Oliver bzw. Manu geschrieben haben.

[MCXSC]

Zitat von Matze:

Das sind Dinge, die gehören eigentlich in eine eigenständige Klasse und sollten mit der VCL nichts zu tun haben. Die eingelesenen Daten des Benutzers kannst du dann an die Methoden der Datenbank-Klasse übergeben und dort verarbeiten. Die Rückgabewerte kannst du dann wieder dem Benutzer präsentieren, d.h. die Ausgabe findet wieder außerhalb der Klasse statt.

Joa, das habe ich schon verstanden. Die Sache mit der Eingabe wird ja auch so gemacht. Nur: Wie bekomme ich die Rückgabewerte wieder zurück? Dafür müsste dann ja für jede Aufgabe eine zweite Procedur im jeweiligen Form her?

[Sir Rufo]

Zitat von MCXSC:

Nur: Wie bekomme ich die Rückgabewerte wieder zurück? Dafür müsste dann ja für jede Aufgabe eine zweite Procedur im jeweiligen Form her?

Mit einer entsprechende Schnittstelle:

Delphi-Quellcode:

funtion TuWasUndGibEsZurück( var Daten : TDaten ) : boolean;
begin
  {Hier tue ich was mit den Daten}
end;

oder meinetwegen

Delphi-Quellcode:

funtion TuWasUndGibEsZurück( Daten : TDaten; var Ergebnis : TErgebnis ) : boolean;
begin
  {Hier tue ich was mit den Daten und pack das in Ergebnis}
end;

oder

Delphi-Quellcode:

funtion TuWasUndGibEsZurück( var Daten : TDaten ) : TErgebnis;
begin
  {Hier tue ich was mit den Daten und dann}
  RESULT := { das Ergebnis zurückliefern }
end;

cu

Oliver

[MCXSC]

Nur damit verdreifacht (oder noch mehr) sich ja die Anzahl der Funktionen... Wenn ich z.B. Name, Vorname und PLZ auslesen will, muss ich ja a) für jedes Feld eine Function schreiben und b) für jedes Feld die Funktion gesondert aufrufen...

[Sir Rufo]

ja, oder du schreibst eine entsprechende Klasse:

Delphi-Quellcode:

TDaten = record
  Vorname : string;
  Nachname : string;
  PLZ : string;
  Ort : string;
end;

und die lässt du dir zurückgeben.

Wie ich schon sagte, mit entsprechenden und _geeigneten_ Schnittstellen

cu

Oliver