Hallo Leute,

ich versuche nun, mich mit den Themen Records und Klassen vertraut zu machen, hab aber einige Anfangsschwierigkeiten.

Also, ich möchte eine Klasse "Kundendaten" erstellen. Diese Klasse soll über einen Record namens "Kunde" verfügen. Und mit folgendem Code:

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, ZQuery, ZMySqlQuery, ZTransact, ZMySqlTr, ZConnect,
  ZMySqlCon;

type
  TKunde = record
    kundennummer: string;
  end;

  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    ds1: TDataSource;
    db1: TZZMySqlDatabase;
    tr1: TZZMySqlTransact;
    query1: TZZMySqlQuery;
    procedure FormShow(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

  TKundendaten = class(TObject)
    kunde1 : TKunde;
    procedure Kundesuchen;
  end;

var
  Form1: TForm1;
  Kundendaten: TKundendaten;

implementation

{$R *.DFM}

procedure TKundendaten.Kundesuchen;
begin
Form1.query1.sql.text:= 'SELECT * FROM kundendaten';
Form1.query1.Open;
kunde1.kundennummer:= Form1.query1.fieldbyname('ID').AsString;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Kundendaten.Kundesuchen;
end;

end.

bekomme ich eine Fehlermeldung, und zwar in der Zeile

kunde1.kundennummer:= Form1.query1.fieldbyname('ID').AsString; Wo denke ich falsch?


MfG

davar

verrätst DU uns evtl. auch die Fehlermeldung?
Die Glaskugelsteuern sind mir einfach zu hoch.

Gruß

onlinekater

Zitat von onlinekater:

verrätst DU uns evtl. auch die Fehlermeldung?

wäre wohl von Vorteil..

"Zugriffsverletzung bei Adresse ... in Modul 'Project1.exe Schreiben von Adresse ..."

Als wäre hier eine Variable nicht definiert..

Kannst Du mal versuchen aus:

markieren

Delphi-Quellcode:

type
TKunde = record
  kundennummer: string;
end;

diese zu machen:

markieren

Delphi-Quellcode:

type
TKunde = record
  kundennummer: string[255];
end;

Grüße
Klaus

Nein, das ändert auch nichts. Gleiche Fehlermeldung.

Meine Prognose: Das Record ist gesund, aber die Instanz zeigt auf einen Haufen Altpapier...
ein KundenDaten := TKundenDaten.Create(...) sollte helfen

PS:

Zitat von davar:

markieren

Delphi-Quellcode:

procedure TKundendaten.Kundesuchen;
begin
  Form1.query1.sql.text:= 'SELECT * FROM kundendaten';
  Form1.query1.Open;
  kunde1.kundennummer:= Form1.query1.fieldbyname('ID').AsString;
end;

Iih, mach das Form1 da wech!

greetz
Mike

es sieht auch so aus als ob du die Kundenklasse nie instantiiert hättest.

Zitat von JasonDX:

Iih, mach das Form1 da wech!

In diesem Fall nicht, da Form1 <> Self!

Gruß Hawkeye

Zitat von Hawkeye219:

Zitat von JasonDX:

Iih, mach das Form1 da wech!

In diesem Fall nicht, da Form1 <> Self!

Ich weiss, deswegen sollte es IMO auch weg!

greetz
Mike

markieren

Delphi-Quellcode:

procedure TKundendaten.Kundesuchen;
begin
  Form1.query1.sql.text:= 'SELECT * FROM kundendaten';
  Form1.query1.Open;
  kunde1.kundennummer:= Form1.query1.fieldbyname('ID').AsString;
end;

ich bin da nich so fit mit SQL Querys, aber
wenn ich Select * from kundendaten mache
kommt da nicht mehr als ein String zurück?

Kannst Du mal testhalber das Ergebnis von
Form1.query1.fieldbyname('ID').AsString
als Message oder in ein Memofeld ausgeben?

Grüße
Klaus