Ich hänge nun an folgendem Problem fest:
Delphi-Quellcode:
type
TDataArray = array[0..4] of variant;
var
DataArray : TDataArray; // ???
...
Format:=0;
CreateDate:=StrToDate(FormatDateTime('dd.mm.yy',GetFileModifyDate(Fread)));
if CreateDate<StrTodate('22.01.04') then Format:=1;
if CreateDate<StrTodate('23.07.03') then Format:=2;
if CreateDate<StrTodate('21.02.02') then Format:=3;
if CreateDate<StrTodate('27.04.01') then Format:=4;
if CreateDate<StrTodate('31.10.00') then Format:=5;
case Format of
0: begin
DataArray[0]:=TZeile_1_nach04;
DataArray[1]:=TZeile_2_nach03;
...
DataArray[4]:=TZeile_5_nach04;
end;
1: begin
DataArray[0]:=TZeile_1_vor04;
DataArray[1]:=TZeile_2_nach03;
end;
2: begin
DataArray[0]:=TZeile_1_vor04;
DataArray[1]:=TZeile_2_vor03;
end
else
begin
ShowMessage('Format wird noch nicht unterstützt.');
exit;
end;
end;
fStream:=TMemoryStream.Create;
try
fStream.LoadFromFile(Fread);
fStream.ReadBuffer(DataArray[0],SizeOf(DataArray[0]));
fStream.ReadBuffer(DataArray[1],SizeOf(DataArray[1]));
fStream.ReadBuffer(DataArray[2],SizeOf(DataArray[2]));
fStream.ReadBuffer(DataArray[3],SizeOf(DataArray[3]));
fStream.ReadBuffer(DataArray[4],SizeOf(DataArray[4]));
finally
fStream.Free;
end;
ich weiss nicht, wie ich anders den Datensatz in das array bekomme, um den richtigen datensatz auslesen zu können
