Hallo!
Ich habe ein Problem.
Folgende Situation ist gegeben:

zusammenfalten · markieren

Delphi-Quellcode:

function TDatabaseConnector.CreateDatabase(Name: TDatabaseName): boolean;
var tmp:TDatabase;
begin
  result:=true;
  try
    tmp:=TDatabase.Create(Name);
  except
    result:=false;
    exit;
  end;
  _Database:=Copy(tmp);//hier tritt der Fehler auf...
  result:=SaveDatabase;
end;

// TDatabase:
  TDatabase=class
  private
  public
    constructor Create(Name:TDatabaseName);
    destructor Destroy; override;
    _Tables:TTableArray;
    _Name:TDatabaseName;
    function AddTable(Name:TTableName; Rows:TRowArray):boolean;
  end;

Der Fehler den ich kriege lautet so:

Zitat:

Wrong number of parameters specifed for call to "$fpc_shortstr_copy"

Ich nehme man an er würde denken das ich das String-Copy nehmen will, dem ist aber nicht so.
Ich will das Copy für Classen!

Weis jemand was ich falsch gemacht habe?

gruß Teekeks

Copy() kann nicht auf den Typ TDatabase angewendet werden. Schau dir mal die .Assign()-Methode an

Aber warum nicht? bei allen anderen einfachen Klassen geht es doch auch...
Und, bitte verzei meine begrifsstuzigkeit, was soll ich da sehen? und wo ist die?

gruß Teekeks

Zitat von Teekeks:

Aber warum nicht? bei allen anderen einfachen Klassen geht es doch auch...
Und, bitte verzei meine begrifsstuzigkeit, was soll ich da sehen? und wo ist die?

Nein, geht nicht. Du wirst auch bei einfachen Klassen einen Fehler bekommen vom Compiler. Es gibt kein Copy für Klassen.

OOps stimmt!
Das waren ja Dynamische Arrays
Und wie Kopiert man sonst Klassen?

Zitat von Teekeks:

OOps stimmt!
Das waren ja Dynamische Arrays
Und wie Kopiert man sonst Klassen?

http://www.delphipraxis.net/internal...051475#1051475

Ok.
Aber wie wende ich das an?
_Database.Assign gibt es bei mir nicht.
Ich hab hier Lazarus v0.9.26b...

Ich habe auch nichts (für mich) verständliches dazu gefunden.

in deinem Fall reicht vermutlich schon

zusammenfalten · markieren

Delphi-Quellcode:

function TDatabaseConnector.CreateDatabase(Name: TDatabaseName): boolean;
var tmp:TDatabase;
begin
  try
    tmp:=TDatabase.Create(Name);
  except
    result:=false;
    exit;
  end;
  _Database:=tmp;
  result:=SaveDatabase;
end;

oder einfach nur, denn tritt im Constructor eine Exception auf, wird der Variable nix zugewiesen

markieren

Delphi-Quellcode:

function TDatabaseConnector.CreateDatabase(Name: TDatabaseName): boolean;
begin
  try
    _Database := TDatabase.Create(Name);
    result:=SaveDatabase;
  except
    result:=false;
  end;
end;

ansonsten mehr so

markieren

Delphi-Quellcode:

tmp := ...;
_Database := TDatabase.Create;
_Databate.Assigned(tmp);
tmp.Free;

@himitsu: try/finally, Assigned()?