Record im Objekt

[davar]

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:

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

Delphi-Quellcode:

kunde1.kundennummer:= Form1.query1.fieldbyname('ID').AsString;

Wo denke ich falsch?


MfG

davar

[TBx]

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

Gruß

onlinekater

[davar]

Zitat:

Zitat von onlinekater

verrätst DU uns evtl. auch die Fehlermeldung?

wäre wohl von Vorteil.. :oops:

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

Als wäre hier eine Variable nicht definiert..

[Klaus01]

Kannst Du mal versuchen aus:

Delphi-Quellcode:

type 
TKunde = record 
  kundennummer: string; 
end;

diese zu machen:

Delphi-Quellcode:

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

Grüße
Klaus

[davar]

Nein, das ändert auch nichts. Gleiche Fehlermeldung.

[JasonDX]

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

PS:

Zitat:

Zitat von davar

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! :zwinker:

greetz
Mike

[mkinzler]

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

[Hawkeye219]

Zitat:

Zitat von JasonDX

Iih, mach das Form1 da wech! :zwinker:

In diesem Fall nicht, da Form1 <> Self! :wink:

Gruß Hawkeye

[JasonDX]

Zitat:

Zitat von Hawkeye219

Zitat:

Zitat von JasonDX

Iih, mach das Form1 da wech! :zwinker:

In diesem Fall nicht, da Form1 <> Self! :wink:

Ich weiss, deswegen sollte es IMO auch weg! ;)

greetz
Mike

[Klaus01]

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