Forum: Sonstige Fragen zu Delphi
by p80286,
13. Mär 2015
ich habs mit ca 8 Millionen Zeile und einer durchschnittlichen Länge von 80 Zeichen versucht, da war alles stabil. Mal schauen was mit größeren Zeilenlängen ist, das kann aber dauern.
Gruß
K-H
Forum: Sonstige Fragen zu Delphi
by p80286,
13. Mär 2015
ich hab mir mal Dein erstes Posting geschnappt und mal laufen lassen:
procedure sterb_schleife;
var
quell_dat, grossdatei: text;
quelldatname : string;
zeile : string;
zaehler_gesamt : integer;
begin
assign(grossdatei, 'c:\temp\'+ 'big.txt');
Forum: Sonstige Fragen zu Delphi
by p80286,
13. Mär 2015
Jo, ist mir beim Frühstück auch aufgefallen, das Sttream.Read war ein Stream.Write :oops:
Jetzt entspricht das Ergebnis Deinen Zahlen, mit leichen Vorteilen für's Streamread. Sei's drum, halten wir fest, beim lesen tun die beiden sich nich(s/ viel) und beim Schreiben hat Blockwrite die Nase vorn.
Gruß
K-H
Forum: Sonstige Fragen zu Delphi
by p80286,
12. Mär 2015
Tja wer mißt misst Mist:
Datei schreiben:
ticks für file1: 998
ticks für file2: 9079
ticks für file1: 5304
ticks für file2: 9313
ticks für file1: 8346
ticks für file2: 10093
Forum: Sonstige Fragen zu Delphi
by p80286,
12. Mär 2015
Sag ich doch, Chaos!
Das letzte mal, als ich so wilde Dateioperationen durchgeführt habe, war noch kein Delphi existent.
@Mavarik glaub ich Dir gerne, aber da die Blockwrite/Blockread-s definitv langsamer waren als das Filestream.Read/write, hab ich alles umgestellt (seit D7/XP) u.U. gibt es da ja noch ein paar Nebensächlichkeiten, die sich auswirken!?)
Gruß
K-H
Forum: Sonstige Fragen zu Delphi
by p80286,
12. Mär 2015
Irgendwann hab ich aufgegeben mich durch dieses Dateichaos zu wühlen.
Den Sourcen würde eine logische überarbeitung und vor allem Auftrennung ganz gut tun.
wenn das Einlesen/Schreiben der Strings nicht so richtig fluppt, wie wäre es textbuf zu nutzen? so zwischen 8k und 16k puffergroße ist man ganz gut unterwegs.
Ein if string='''' ist nicht soo dolle weil man in diesem Falle (bei...
