Entwickler-Ecke
Dateizugriff - Sequentielle Dateien schreiben
s4lzh3r1ng - Do 27.02.03 14:46
Titel: Sequentielle Dateien schreiben
Hallo zusammen!
Kann mir jemand sagen ob es irgendwie möglich ist mit dem Befehl
write mehrere Variablenwerte in eine Datei zu schreiben oder ob das nur möglich ist, wenn ich einen record deklariere und den in die Datei schreibe.
Hier ein Beispiel:
Quelltext
1:
| write(f,flaeche,vsm,vs,vk); |
oder
vielen Dank für eure Hilfe.
maximus - Do 27.02.03 18:34
Na klar geht das!
Quelltext
1:
2:
3:
| var f: file of integer;
...
for i := bla to bla do write(f,i); |
...einfach mal testen.
mfg mx
s4lzh3r1ng - Do 27.02.03 22:06
vielen Dank erstmal, aber ich glaub das ist nicht das ws ich meine, ich möchte ja verschiedene Variablen abspeichern und nicht nur eine.
Denn das ist das Problem wenn ich mehrer da hinschreibe, nimmt er trotzdem nur den ersten.
Weiß da jemand weiter?
bis11 - Do 27.02.03 23:42
Was maximus geschrieben hat, ist schon das was Du suchst.
s4lzh3r1ng - Fr 28.02.03 13:25
:oops: Stimmt ... entschuldigt bitte, hab das erst nicht richtig kapiert.
Vielen Dank!
Corelgott - Fr 28.02.03 18:40
Titel: Speichern...
:idea:
Man kann in delphi doch auch eigene Daten-Typen Speichern:
8)
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
| type TData = record
Name, Vorname: String [255];
end;
...
var
Data : Array of TData;
...
procedure SaveFile(Path : String);
var
IndX : Integer;
begin
assignFile(MyFile,Path);
if fileExIsts(Path) then
reset(MyFile)
else
rewrite(MyFile);
for IndX := 0 to count-1 do write(MyFile,Data[IndX]);
closeFile(MyFile);
end; |
Das laden geht dann ähnlich leicht:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| Procedure LoadFile(Path : String);
var
tmp : TData;
begin
if fileExIsts(Path) then
begin
Clear;
assignFile(MyFile,Path);
reset(MyFile);
while not EOF(MyFile) do
begin
read(MyFile, tmp);
Add(tmp); //Da müsste dann ne Prozedur hin, die das Array vergrößert usw...
end;
closeFile(MyFile);
end;
end; |
Nur ne Ergänzung zum speichren :D
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!