procedure mit variabler komponente

[Noobix93]

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.

[1234588]

was geht denn nun nicht bzw. was fuer eine fehlermeldung bekommst du? musst uns mehr infos geben :)

[dominikkv]

willst du in deinem Beispiel nur den text übergeben oder das ganze Objekt?

[Apollonius]

Du kannst als Parametertyp einfach TMemo nehmen, oder in deinem Beispiel noch besser TStrings.

[DeddyH]

Und ich würde eine Methode von Form1 draus machen, dann fallen die ganzenform1.FMysql etc. weg.

[1234588]

wenn du in deiner procedure so zugreifen moechtest:
name.lines[name.lines.count] dann sollte dein proceduren kopf so aussehen:
procedure addsql(name: TMemo);

[Noobix93]

Ich sag erstmal danke klappt super.
Hoffe ich kan mit meinem wissen auch bald anderen Leuten helfen.