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;