Problem mit record

[The_ New_Guy]

Ich brauche ein ein mehrdimensionales array, indem ich die eigenschaften font und color einspeichere.
hier die deklaration:

Delphi-Quellcode:

type
  Tcell_attributes = array of array of Record
    Font : Tfont;
    color : Tcolor;
end;
//...
var ca : Tcell_attributes;
//...
ca[x,y].font := // . . .

Mein Problem: wie kann ich überprüfen ob der wert in ca[x,y].font schon gesetzt ist,
also ob da schon was reingeschrieben wurde -?

[mkinzler]

Auf Nil prüfen bzw. Assigned()

[The_ New_Guy]

ich habe verucht die länge des arrays zu bestimmen, allerdings stürzt meine Anwendung dann auch immer ab

etwa so

Delphi-Quellcode:

  setlength(ca1,stringgrid1.Colcount);
  for x := 1 to stringgrid1.Colcount-1 do
    setlength(ca1[x], stringgrid1.RowCount);

[The_ New_Guy]

nil geht leider nicht - ich probier mal assigned

[The_ New_Guy]

funktioniert leider nicht . . .

[The_ New_Guy]

assignd funktioniert allerdings geht der code nicht richtig . . .
also ich versuche alle Zellen in einem Stringgrid mit font und color eigenschaften zu belegen.
mit color funktioniert das wunderbar - allerdings nicht mit font.

Delphi-Quellcode:

procedure Temaske_excel.Schriftartbearbeiten1Click(Sender: TObject);
begin

if Assigned(ca1[stringgrid1.Col,stringgrid1.Row].font) then
  fontdialog1.Font := ca1[stringgrid1.Col,stringgrid1.Row].font
else
  fontdialog1.Font := stdfont;

if fontdialog1.Execute then
begin
  ca1[stringgrid1.Col,stringgrid1.Row].font := fontdialog1.Font;
end;

end;

das problem : wenn ich eine zelle anklicke, das popupmenü öffen und denn auf 'schriftarten bearbeiten' klicke wird der font wert stdfont nicht richtig in den fontdialog1 eingefügt.
der fontdialog1 sollte dann doch eigentlich stdfont anzeigen, oder?

in der oncreate definiere ich stdfont so:

Delphi-Quellcode:

stdfont := Fontdialog1.font;

[DeddyH]

Zitat:

Zitat von The_New_Guy

mit color funktioniert das wunderbar - allerdings nicht mit font.

Das könnte daran liegen, dass TFont eine Klasse ist, TColor hingegen nicht :zwinker: .

[The_ New_Guy]

ahh daddy hat ahnung!(cool) wie bekomme ich das hin? muss ich da mit create arbeiten?

[DeddyH]

Haargenau, Du musst eine Klasse erst instanziieren. Vergiss aber bitte nicht, den belegten Speicher zum Schluss wieder freizugeben.

[The_ New_Guy]

villeicht noch ein kleines Beispiel . . .

das ist doch ein array - muss ich jedes element einzelnd createn d.h. für die ganze Matrix
einzelnd?`oder gibts ne lösung das besser hinzubekommen. Was ist mit font selber - muss ich auch ein tfont objekt erzeugen?

[The_ New_Guy]

jaa. ich habs geschafft. danke analle!!! :cheers:

so sollte es sein. Allerdings ist mir erst am heutigen(!) tage aufgefallen, das man objekte nicht wie variablen zuweisen kann, sondern immr nur mit assign.

was passiert eigentlich mit meinen variablen wenn ich z.B. das hier mache:
// ACHTUNG!! absichtlich falscher code!!
font1 := font2;
Was passiert hierbei, wird da der Font1 Zeiger einfach überschrieben von font2??
(bedeutet das, Font1 wird dann immer noch font1 heissen allerdings mit den eigenschaften von font2 + die alte font1-ram-speicherstelle bleibt verbaut und unaufrufbar)???

Delphi-Quellcode:

procedure Temaske_excel.Schriftartbearbeiten1Click(Sender: TObject);
begin
// objekt kreiren falls nicht existent.
if ca1[stringgrid1.Col,stringgrid1.Row] = nil then
  ca1[stringgrid1.Col,stringgrid1.Row] := Tcell_attributes.Create;


  if assigned(ca1[stringgrid1.Col,stringgrid1.Row].font) then
  begin
    fontdialog1.Font.Assign(ca1[stringgrid1.Col,stringgrid1.Row].font);
  end else
  begin
    ca1[stringgrid1.Col,stringgrid1.Row].Font := Tfont.Create;
    fontdialog1.Font.Assign(stdfont);
  end;

  if fontdialog1.Execute then
  begin
    ca1[stringgrid1.Col,stringgrid1.Row].font.Assign(fontdialog1.Font);
    fontdialog1.Font.Assign(stdfont);
  end;

end;

[Apollonius]

Es gibt ein Speicherleck. Denn die ursprünglichen Daten von font1 liegen ja noch irgendwo rum, aber du hast den Hinweis auf die Stelle überschrieben und somit weiß niemand wo.
Wenn du jetzt an eine Eigenschaft von Font1 etwas zuweist, ändert sich auch der enstprechende Wert bei font2.