Delphi-Quellcode:
{ Component constructor... }
constructor TFileSplitter.Create(AOwner: TComponent);
begin
inherited;
FFileName := '';
FCustomExt := 'XXX';
FSplitFileName := FFileName;
FOutDifferent := False;
FSize := 1457664;
FBufferSize := 1457664;
FReduceFirstSizeBy := 0;
Signature.Copyright := 'Copyright';
Signature.NumberOfFiles := 0;
end;
Nein, klappt kmischerweise immernoch nicht. Die Variable ist seltsamerweise immer leer