Delphi-Quellcode:
type
TKalender = class(TForm);
TFrei = record
Date: TDateTime;
Name: string;
end;
TFreiTable = array of TFrei;
function holeFreiTable(Year: Word): TFreiTable;
var
Tage : array of array of String;
erster, letzter : Integer;
.
.
.
function holeFreiTable(Year: Word): TFreiTable;
var
EDate, Test: TDateTime;
von,
bis,
I : Integer;
begin
.
.
Test:=(TFreiTable(TFrei.Date))[1]; //<--E2096 Methodenbezeichner erwartet
//Später soll es dann mal anstelle der Test-Variablen so aussehen:
{ for I := erster to letzter do begin
Tage[i,0]:=DateToStr(TFreiTable(TFrei(Date))[i]);
Tage[i,1]:=TFreiTable[i].Name;
end;}
Ich versuche aus dem Record alle Elemente auszulesen und in das Array Tage zu schreiben, da ich es benutzen möchte eine Tabelle mit Feiertagen zu bauen.
Nun ist meine Anfängerfrage: wie spreche ich jedes Feld des Record an, entlocke ihm sein Geheimnis und übergebe es als string meinem Array.
Ich hoffe jemand kann mir weiter helfen.
Vielen Dank