so, hab mich jetzt mal dahinter gemacht wie man streams an files anhängen kann - da ich es selber machen mmöchte
nur mein problem ist das wenn ich etwas anhänge dass das komplette file überschrieben wird - hab den source aus nem tut von delphi-source.de
Code:
type
Tsave = class(TForm)
save: TButton;
procedure saveClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
save: Tsave;
implementation
{$R *.dfm}
type
Tdatensatz=record
id:integer;
name:ansistring;
end;
tdatenarray = array of tdatensatz;
procedure Tsave.saveClick(Sender: TObject);
var
daten:tdatenarray;
stream:tstream;
i:integer;
len:longint;
begin
setlength(daten,2);
daten[0].id:=1;
daten[0].name:='ein name';
daten[1].id:=2;
daten[1].name:='ein andrer name';
stream:=tfilestream.create('c:\rechner.exe',fmcreate);
try
len:=length(daten);
stream.write(len,sizeof(len));
for i:= 0 to length(daten) - 1 do begin
stream.write(daten[1].id, sizeof(daten[i].id));
len:=length(daten[i].name);
stream.write(len, sizeof(len));
stream.write(pchar(daten[i].name)^,len);
end;
finally
stream.free;
end;
end;
end.
kann mir jmd helfen?