Zitat von
marabu:
Hallo,
probiere es so:
Delphi-Quellcode:
var
fs: TFileStream;
begin
fs := TFileStream.Create(YourFileName, fmCreate or fmShareExclusive);
fs.Size := YourFileSize;
fs.Free;
end;
Grüße vom marabu
loool....
Na dann... mein Code lautet jetz so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
fs: TFileStream;
begin
If SaveDialog1.Execute then
begin
fs := TFileStream.Create(SaveDialog1.FileName, fmCreate or fmShareExclusive);
fs.Size := StrToInt(JvEdit1.Text);
fs.Free;
end
end;
und das geht auch 1000 Mal schneller, aber ich würde eigentlich immer noch gerne wissen wie ich eine progressbar benutzen kann.
Jetzt natürlich zum neuen Code.
@glkgereon: könntest du vielleicht deinen code noch ein bisschen beschreiben....
(nur ein kleines bisschen bitte)
Vielen dank und noch schöne Festtage
mfg headi