TMysqlResult = class(TObject) Kopieren?!?

[DelTurbo]

Wie bekomme ich unten das "teil" kopiert? Irgendwie steh ich da grade etwas aufm schlauch. Geht das überhaupt?

Danke im Voraus

Delphi-Quellcode:

  TMysqlClient=class;
  TMysqlResult = class(TObject)
  private
    ffieldscount   : longint;
    frowscount     : int64;
    ffields        : PMysql_FieldDef;
    fhandle        : TMysqlClient;
    fType          : TResultType;
    flengths       : PCardinal;
    frow           : TMysql_Row;
    fdata          : PMysql_Data;
    fdata_cursor   : PMysql_Rows;
    fRecNo         : longint;
    fcurrent_row   : TMysql_Row;
    fEOF           : boolean;
    fBOF           : boolean;
    flengthsread   : boolean;
    fLastRow       : longint;
    procedure SetRecNo(const Value: longint);
    procedure SetHasLengths(const Value: boolean);
    function GetHadErrors: boolean;
    function GetLastRowRead: boolean;
  public
    property Eof:boolean read fEof;
    property Bof:boolean read fBof;
    property RecNo: longint read fRecNo write SetRecNo;
    property HasLengths:boolean read flengthsread write SetHasLengths;
    property FieldsCount:longint read ffieldscount;
    property RowsCount:int64 read frowscount;
    property ResultType : TResultType read fType;
    property FieldsDefs : PMysql_FieldDef read ffields;
    property Lengths : PCardinal read flengths;
    property CurrentRow : TMysql_Row read fcurrent_row;
    property HadErrors : boolean read GetHadErrors;
    property LastRowRead : boolean read GetLastRowRead;
    constructor create(aMysql:TMysqlClient; aType:TResultType);
    destructor destroy;override;
    function FieldLenght(aIndex:longint):cardinal;
    function FieldValue(aIndex:longint):pchar;
    function FieldDef(aIndex:longint):PMysql_FieldDef;
    function FieldValueByName (aName:string; CaseSensitive:boolean=false):pchar;
    function FieldDefByName (aName:string; CaseSensitive:boolean=false):PMysql_FieldDef;
    function FieldIndexByName(aName:string; CaseSensitive:boolean=false):longint;
    procedure Next;
    procedure Prior;
    procedure First;
    procedure Last;
    procedure FetchLengths;
  end;

[DeddyH]

Was genau meinst Du denn mit Kopieren? So etwas wie Assign?

[DelTurbo]

Öhm, ich denk schon. Also z.b. result1:=result2 geht ja nicht, da wird ja nur der pointer umkopiert. Ich bräuchte aber das komplette objekt, damit ich result1 wieder mit anderen daten füllen kann, aber die "alten" noch habe, in result2.

[DelTurbo]

Hab ich das falsch erklärt? Gebt mir ruhig Tiernamen wenn ich mist schreibe :)

[Sir Rufo]

Zitat:

Zitat von DelTurbo (Beitrag 1130941)

Hab ich das falsch erklärt? Gebt mir ruhig Tiernamen wenn ich mist schreibe :)

Biene Maja :mrgreen:

[DelTurbo]

Hehe, ich dachte da an andere ;)

Irgendwie such ich mir nen ast. Das doofe ist, das ich immer soviel vergesse, bzw. verwechsel. Gab es da nicht irgenwas womit man sowas kopieren konnte? Oder irre ich mich und man muss das von "hand" machen? Ich meine im kopf zu haben das man irgendwas ableiten konnte. Aber irgendwie steht ich im moment total auf der leitung.

[stahli]

Du musst das von Hand machen. Üblicherweise implementiert man dies in der Methode Assign.
Es ist ab Delphi 2010 ggf. auch möglich, alle Felder eines Objektes in einer Schleife in ein anderes Objekt zu kopieren. Dazu müsste man aber die zu kopierenden Felder auch vorher "markiert" werden.
Also: Mach es von Hand.

[DelTurbo]

Dann weiss ich bescheid. Es ist halt nur frustrierend wenn man hier im board bzw. bei google sucht, und weiss nichtmal wonach man suchen soll. Hätte ich das von anfang an gewusst, hätte ich das "schnell" von hand gemacht, statt zu suchen. Das suchen hat bestimmt länger gedauert.

Als antwort hätte auch ein einfaches "Musst du von Hand machen" gereicht.

Vielen dank für die antwort