Forum: Object-Pascal / Delphi-Language
Delphi
by Kanne_Kaffe,
11. Okt 2005
Werte berechnen und abspeichern.
Ich optimiere schon seit einiger Zeit. Mein erstes Projekt in diese Richtung (Knapp 1 Woche Entwicklungszeit - ohne Kosmetik) hat ein "freundlicher Dateisystemfehler vernascht" samt Soucre und Binärcode. Das war ein Freude. Nun muß ich es halt neu schreiben. Da habe ich an den Schwachstellen schon verbessert.
Das mit der neuen Platte musste ohne hinsein. Da...
Forum: Object-Pascal / Delphi-Language
Delphi
by Kanne_Kaffe,
11. Okt 2005
Das ist mir ja klar. Habe ja vor meinem Posting F1 versucht. Dort steht
fmCreate Es wird eine Datei mit dem angegebenen Namen angelegt. Ist eine Datei mit diesem Namen bereits vorhanden, wird die Datei zum Schreiben geöffnet.
Nach Satz versteh ich es so, das angehängt wird. Welches ist den dann der Richtige Parameter. Mir will es leider nicht wirklich einleuchten.
Forum: Object-Pascal / Delphi-Language
Delphi
by Kanne_Kaffe,
11. Okt 2005
Ich habe jetzt mal umgestellt auf FileStream. Nur komischerweise stehe ich vor dem gleichen Problem. Die Datei wird immer wieder überschrieben, statt anzuhängen.
procedure SchreibeDatei2(Filename, Name, Adresse: String; Count: Cardinal);
var
iTemp: Integer;
begin
New(FileInfo);
FileInfo.Name := Name;
FileInfo.Adresse := Adresse;
FileInfo.Count := Count;
Forum: Object-Pascal / Delphi-Language
Delphi
by Kanne_Kaffe,
10. Okt 2005
@marabu: Thx für die vielen Tips. Ich werde wohl auf den FileStream umsatteln müssen. Ob das Projekt überhaupt was taugt an dem ich gerade arbeite wird sich erst in ein paar Monaten herausstellen. Übrigens variable Zeichenketten werden nicht verarbeit. Sie haben immer eine feste Grösse. Was ich hier an Code vorgestllet habe ist nur ein kleines programm zum besseren Verständis des Problems und hat...
Forum: Object-Pascal / Delphi-Language
Delphi
by Kanne_Kaffe,
10. Okt 2005
Und schon stehe ich vor einem anderen Problem. Da es immer noch das selbe Thema ist denke ich diesen Thread fortzusetzten. Also ich habe jetzt meine Schreib-Procedure entsrechend angepasst um die datei nimt immer neu anzulegen sonder hineinzuschrieben. Leider geht es mit
Reset(F)
nicht, da die Datei trotzdem neuangleget wird, bzw überschrieben wird.
procedure SchreibeDatei(Filename,...
Forum: Object-Pascal / Delphi-Language
Delphi
by Kanne_Kaffe,
10. Okt 2005
@Kroko1999 Is schon richtig so wie ich es schreibe. Es ist nur dieser 1 Record. Aber in der Datei sollen am Ende eigiges verwaltet werden.
Forum: Object-Pascal / Delphi-Language
Delphi
by Kanne_Kaffe,
10. Okt 2005
Auch 4 Gig reichen auf Dauer nicht (Test haben das schon ergeben). Ich rechne im "Normalbetrieb" mit dem 10 fachen. Locker. Bei höherer Auslastung mit Dateien bis zu 80 Gig und mehr. Ich habe mir dafür sogar eine Extra-Platte gekauft. :lol:
Forum: Object-Pascal / Delphi-Language
Delphi
by Kanne_Kaffe,
10. Okt 2005
Nein es handelt sich nur um diesen einen Record.
Jetzt funtz mit dem Schreiben und Lesen bis hier her. Aber das nächte Problem wird nicht lange auf sich warten lassen. Dank an alle.
Forum: Object-Pascal / Delphi-Language
Delphi
by Kanne_Kaffe,
10. Okt 2005
F: File of TFileInfo; Der Compilier ist damit nicht einverstanden: Typ 'TFileInfo' benötigt Finalization - nicht im Dateityp erlaubt :gruebel:
Forum: Object-Pascal / Delphi-Language
Delphi
by Kanne_Kaffe,
10. Okt 2005
Ich habe die Function jetzt mal geändert
procedure SchreibeDatei(Filename, Name, Adresse: String; Count: Cardinal);
var
I: Integer;
begin
New(FileInfo);
FileInfo.Name := Name;
FileInfo.Adresse := Adresse;
FileInfo.Count := Count;