Hallo, ja mein erster Post hehe
Ja, der grund warum ich mich registriert habe ist ich komm nicht weiter.
Ich möchte eine Procedur schreiben die folgendermassen aussieht:
procedure addsql(const Name:String)
Name soll dabei eine komponente auf form1 sein.
z.b
addsql(memo1);
So das ich den die komponente frei festlegen kan womit er deise Procedur ausführt.
Es kan sein das ich komplett falsch liege, noch habe ich nicht viel mit Delphi gemacht doch dies bringt mich wirklich zum verzweifeln
in der Procedur soll dan z.b sowas stehen:
Delphi-Quellcode:
procedure addsql(
const Name:
String);
var q:
string;
ex: boolean;
insert:
string;
begin
if assigned(form1.FResult)
then begin
if form1.FMysql.Status<>MYSQL_STATUS_READY
then
ShowMessage('
Ein Ergebnis wurde unvollständig gelesen!');
FreeAndNil(form1.FResult);
end;
insert:=name.lines[
name.lines.count]
// Name funktioniert natürlich nicht es soll zeigen das ich die eigenschaft von name verwenden will, Name ist auf der Form z.b Memo1
form1.FResult := form1.FMysql.query(insert, true, ex);
if assigned(form1.FResult)
then
ShowMessage('
Query: OK - Ergebnis gespeichert')
else
if ex
then
ShowMessage('
Query: OK - ausgeführt')
else
ShowMessage('
Query fehlgeschlagen: '+form1.FMysql.LastError);
end;
Er sagt mir natürlich das variablen keine Eigenschaften haben.