Forum: Sonstige Fragen zu Delphi
Delphi
by glkgereon,
26. Dez 2005
kommentiert^^
@marabu:
Wie arbeitest du denn mit einer Progressbar? *schüttel*
Am Anfang Prg.Max:=AnzahlDerSchritt; Prg.Step:=1;
und dann bei jedem Durchlauf Prg.StepIt; Prg.Refresh;
Fertig ;)
Forum: Sonstige Fragen zu Delphi
Delphi
by glkgereon,
26. Dez 2005
Wenn du es mit TextFile machen willst, musst du wohl oder übel etwas Performance dafür opfern.
procedure TForm1.Button1Click(Sender: TObject);
const MB2B = 1024*1024; //MBytes nach Bytes
BufSize = 1024; //Buffergröße in Bytes
var Buf: String; //Buffer
Size: Int64; //MBytes
T: TextFile; //TextFile
i, j: Integer; //Zähler
begin