Wie kann ich in meine Funktion ein Objekt übergeben?

xel · Beiträge: 43

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

//Also ich will sowas:
Function test(var_table): String;
begin
  Form1.var_table.Locate(ComboBox1.Text,ComboBox2.Text,optionen);
end;


//starten meiner funktion
test(Table2);

Jaja vieleicht ist das garnicht möglich wie ich das oben geschrieben habe, aber irgendwie so
muss es ja gehen!

thx
Xel

Moderiert von Christian S.: Topic aus Dateizugriff verschoben am Mo 17.01.2005 um 10:51

BenBE · Verfasst: Mo 17.01.05 10:56

xel hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

//Also ich will sowas:
Function test(var_table): String;
begin
  Form1.var_table.Locate(ComboBox1.Text,ComboBox2.Text,optionen);
end;


//starten meiner funktion
test(Table2);

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

//Also ich will sowas:
Function test(var_table:TTable): String;
begin
  var_table.Locate(ComboBox1.Text,ComboBox2.Text,optionen);
end;

//starten meiner funktion
test(Table2);

Das ist alles

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

xel · Beiträge: 43

Und wie ist das wenn mein Objekt in Form1 liegt und meine funktion in
Form2?

so ungefär
s_tabelle: TForm1.TTable; ????

thx
xel

HolgerB · Beiträge: 91 Win XP D6 Pers

Andersherum.

Beim Aufruf musst du angeben, wo deine Komponente liegt. Sofern du es noch nicht hast, musst du Form2 auch noch unter Uses eintragen, sonnst kannst du nicht auf die Komponenten aus einem anderen Formular zugreifen.

Funktionsaufruf:

markieren

Delphi-Quelltext

1:	a := test(form2.TTable);

xel · Beiträge: 43

also ich würde das sonnst direkt als Variablen in einem Form einfügen aber es geht so nicht

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

var
  Optionen: TLocateOptions;  
  s_tabelle: Form1.TTable; //<--- hier macht er fehler - [Fehler] Unit8.pas(33): Undefinierter Bezeichner: 'Form1'


implementation

uses Unit1; //<-- Unit1 ist drin, wie du siehst!?

Moderiert von Christian S.: Delphi-Tags hinzugefügt.

HolgerB · Beiträge: 91 Win XP D6 Pers

OK,

bei der TTabelle habe ich mich vertan. TTabelle ist ja ein Typ, keine Variable.

Deine Variablendeklaration müsste so aussehen:

markieren

Delphi-Quelltext

1:
2:
3:

var  
  Optionen: TLocateOptions;    
  s_tabelle: TTable;

Die Funktion in Unit1

markieren

Delphi-Quelltext

1:	functin test(value :TTable): String;

Der Funktionsaufruf in Unit1:

markieren

Delphi-Quelltext

1:	a := test(s_tabelle);

Der Funktionsaufruf aus Unit2:

markieren

Delphi-Quelltext

1:	a := test(unit1.s_tabelle);

So, ich hoffe ich habe keine Fehler drin...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme