Allgemeigültige Procedure oder Function schreiben

[Christian18]

Hallo,

wie kann man eine Procdure oder Function schreiben in der folgendes gemacht wird.

- Es soll ein Datensatz an eine Tabelle angehänht werden.
- Es soll ein Fenster geöffnet werden.
- und die Caption des Fensters muß änderbar sein.

Hier der Quellcode zu des oben beschriebenen Textes:

Delphi-Quellcode:

Table1.Append;
Form2.Caption:='Hallo';
Form2.ShowModal;

kann ich dafür eine allgemeine Procedure oder Function schrieben in der, der Name der Tabelle übergeben wird und der name des fensters.

Ist das möglich???

[Nicodius]

wenn ich ja ist möglich sage


heißt das ja auf diese interpretation

du willst eine procedure die in ein schon vorhandenes Formblatt

das macht

Delphi-Quellcode:

Table1.Append;
Form2.Caption:='Hallo';
Form2.ShowModal;

ps du meinst das doch so oder?


also JA es ist möglich

[Christian18]

ja ich will eine procedure oder function schreiben in der man den namen der tabelle und den namen der form übergibt und anschließen soll das gemacht werden:

Delphi-Quellcode:

table1.append;
form2.caption:='hallo';
form2.showmodal;

aber natürlich mir den namen der form und der tabelle. kann mir bei dieser problem stellung irgendjemand weiter helfen???

mit freundlichen grüßen

christian18

[alcaeus]

Hi Christian18,

meinst du etwa sowas:

Delphi-Quellcode:

type TForm1 = class(TForm)
  ...
  procedure ZeigeForm(aForm: TForm; aTable: TTable);
end;
...

procedure TForum1.ZeigeForm(aForm: TForm; aTable: TTable);
begin
  aTable.append;
  aForm.caption:='hallo';
  aForm.showmodal;
end;

aufgerufen wird die Funktion dann so: ZeigeForm(Form2, Table1); Ich hoffe dich jetzt richtig verstanden zu haben.

Greetz
alcaeus

[Wuaegner]

Zitat:

Function schrieben in der, der Name der Tabelle übergeben wird und der name des fensters.

oder so:

Code:

procedure Test(TName,FName: string; );
begin
 TTable(TName).Append;
 TForm(FName).Caption:= 'Hallo';
 TForm(FName).ShowModal;
end;

um nur die Namen zu übergeben.

[alcaeus]

Hi Wuaegner,

seit wann funktioniert denn sowas:

Code:

procedure Test(TName,FName: string; );
begin
 TTable(TName).Append;
 TForm(FName).Caption:= 'Hallo';
 TForm(FName).ShowModal;
end;

Du versuchst ja nur die String-Variable in eine TTable- bzw. TForm-Variable umzuwandeln. Wenn dann musst du da mit FindComponent arbeiten, aber so wird es sicherlich nicht funktionieren.

Greetz
alcaeus

[Christian18]

ok vielne vielen dank diese Variante meine ich. es funktioniert bei mir.

Zitat von alcaeus:

Hi Christian18,

meinst du etwa sowas:

Delphi-Quellcode:

type TForm1 = class(TForm)
  ...
  procedure ZeigeForm(aForm: TForm; aTable: TTable);
end;
...

procedure TForum1.ZeigeForm(aForm: TForm; aTable: TTable);
begin
  aTable.append;
  aForm.caption:='hallo';
  aForm.showmodal;
end;

aufgerufen wird die Funktion dann so: ZeigeForm(Form2, Table1); Ich hoffe dich jetzt richtig verstanden zu haben.

Greetz
alcaeus