[erledigt] Procedure aus dem Netz einbinden

[kralle]

Moin,

ich muss gestehen, ich habe immer wieder Probleme, wenn ich eine fertige Procedure aus einer Internetquelle,
in eines meiner Programme einbinden will.
Wenn ich Glück habe, dann ist das auf der entsprechenden Seite zu erkennen.

Wenn jetzt folgendes gegeben ist:

Code: Alles auswählen

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, DB, SQLDB, SQLite3Conn, PQConnection, oracleconnection,
  IBConnection, odbcconn, MSSQLConn, mysql57conn,
  mysql55conn, mysql80conn, Forms,
  Controls, Graphics, Dialogs, DBCtrls, DBGrids, StdCtrls, Grids;

type

  { TForm1 }

  TForm1 = class(TForm)
    Verbinden: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    DB_Connection: TSQLConnector;
    MySQL57Connection1: TMySQL57Connection;
    MySQL80Connection1: TMySQL80Connection;
    SQLQuery1: TSQLQuery;
    SQLTransaction1: TSQLTransaction;
    procedure Button2Click(Sender: TObject);
    procedure VerbindenClick(Sender: TObject);

  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}       

und ich die Procedure

Code: Alles auswählen

procedure AutoSizeColDBGrid(DBGrid: TDBGrid; aAutoFille: boolean = False);

nutzen möchte, wie binde ich die oben richtig ein?

Wenn ich das einfach unter

Code: Alles auswählen

public

kopiere, dann bekomme ich die Meldung

Code: Alles auswählen

unit1.pas(34,12) Error: Forward declaration not solved "AutoSizeColDBGrid(TDBGrid;Boolean=`FALSE`);"

Das nächste ist dann der Aufruf der Procedure.
In diesem Projekt würde ich eigentlich denken, dass ich das so machen muß:

Code: Alles auswählen

procedure TForm1.Button2Click(Sender: TObject);
begin
   AutoSizeColDBGrid(DBGrid1, true);
end;  

Ist das richtig?

Auch wenn ich schon lange Pascal nutze, ist es doch an vielen Stellen "Try And Error", da ich keine Zeit finde Kurse zu besuchen (wenn es überhaupt noch welche gibt) oder Handbücher zu lesen (halte nur ein paar Seiten durch).

Gruß Heiko

[af0815]

Gehört die procedure zum Objekt TForm1, dann musst du es auch im Interface dort deklarieren und dann in der Implementierung auch die Deklaration richtig mit TForm1.MeineProcedure durchführen.

[theo]

und ich die Procedure

Code: Alles auswählen

procedure AutoSizeColDBGrid(DBGrid: TDBGrid; aAutoFille: boolean = False);

nutzen möchte, wie binde ich die oben richtig ein?

Lege den Textcursor auf diese Deklaration (in z.B. "public") und mache "Strg+Umsch+C", dann wird das Gerüst im Implementationsteil erzeugt.
Entspricht "Kontextmenu->Quelle->Quelltext vervollständigen".

[kralle]

Moin,

Lege den Textcursor auf diese Deklaration (in z.B. "public") und mache "Strg+Umsch+C", dann wird das Gerüst im Implementationsteil erzeugt.
Entspricht "Kontextmenu->Quelle->Quelltext vervollständigen".

Gibt es das auch Andersherum?
Also ich habe die fertige Procedure z.B. aus dem Netz und ich sage dann "Erstelle die Deklaration"?

Gruß Heiko

[theo]

Gibt es das auch Andersherum?
Also ich habe die fertige Procedure z.B. aus dem Netz und ich sage dann "Erstelle die Deklaration"?

Probier's aus.
Dann muss aber in diesem Fall der Name der Klasse (hier TForm1) mit dem fremden Code übereinstimmen.
Also:

Code: Alles auswählen

procedure TForm1.AutoSizeColDBGrid(DBGrid: TDBGrid; aAutoFille: boolean = False);

Umgekehrt ist es also praktischer.

[Epcop]

Code: Alles auswählen

procedure TForm1.Button2Click(Sender: TObject);
begin
   AutoSizeColDBGrid(DBGrid1, true);
end;  

Ja, wenn AutoSizeColDBGrid() oberhalb dieser Procedure ist, geht es auch. Dann muss es aber Form1.DBGrid1 heißen.

Ansonsten musst du auch darauf achten, die nötigen Units noch einzubinden, falls die Procedure welche benötigt. Das steht meist dabei (oder muss man erraten).
Und die nötigen Elemente müssen auch vorhanden sein (in dem Beispiel ein DBGrid).

Nicht alle Beispiele aus dem Internet funktionieren. Teils sind sie für alte oder andere Pascal Versionen geschrieben. Dann gibt es diese nicht mehr oder werden anders verwendet. Dann bleibt oft nichts anderes übrig, als diese umzuschreiben.

Und was ich auch oft sehe: Mancher Code im Internet ist auch durch die Formatierung der Webseite (oder was auch immer) zerstört und fehlerhaft. Da fehlen schlicht einfach Satzteile, Klammern, Semikolon, begin und end. Oder jemand hat bei Copy & Paste einfach Fehler gemacht. Bei solchen Code braucht man sich erst gar nicht zu versuchen.

Und weil es vermutlich in Zukunft auch immer öfters vorkommt: Produzierter KI Code ist oft auch fehlerhaft und nicht funktionsfähig... Wird aber trotzdem gerne veröffentlicht.

[kralle]

Moin,

danke für die Hinweise.

Jetzt habe ich die Procedure eingebunden.
Sie wird aufgerufen und auch durchlaufen, aber im DBGrid ändert sich nichts, aber das ist ein Thema für einen weiteren Beitrag.

Gruß Heiko

[wp_xyz]

Jetzt habe ich die Procedure eingebunden.
Sie wird aufgerufen und auch durchlaufen, aber im DBGrid ändert sich nichts, aber das ist ein Thema für einen weiteren Beitrag.

Was passiert denn in der Procedure? Kannst du den Code posten?

[kralle]

Moin,

ich mache für das anpassen der Spaltenbreite, ein neues Thema auf.

Gruß Heiko