![]() |
Wie kann ich einen Record in eine Datei schreiben/lesen
Hallo,
wie kann ich am einfachsten einen RECORD (nur STRINGS)) in eine Datei schreiben und lesen. Gruß Martin |
Re: Wie kann ich einen Record in eine Datei schreiben/lesen
da strings nur pointer sind musst du dir da selbst eine funktion schreiben welche die strings nacheinander in die datei schreibt da beim schreiben des gesamten records sonst nur die pointer in der datei landen
|
Re: Wie kann ich einen Record in eine Datei schreiben/lesen
Hallo !
Da gibt es mehrere Möglichkeiten, amleichtesten geht es eigentlich mit TFileStream.
Delphi-Quellcode:
gruss
var
fs: TFileStream; begin fs := TFileStream.Create('C:\test.dat', fmOpenWrite); try fs.Write(DeinRecord,SizeOf(DeinRecord)); finally fs.free; end; end; |
Re: Wie kann ich einen Record in eine Datei schreiben/lesen
in char umwandeln ( begrenzte länge 255 zeichen ) und diese dann speichern
mit z.b. BlockWrite |
Re: Wie kann ich einen Record in eine Datei schreiben/lesen
brauchst du nicht, da die maximale Länge von Strings in records sowieso bei 255.
|
Re: Wie kann ich einen Record in eine Datei schreiben/lesen
Genau auf die Weise wird er keinen Erfolg haben, denn gerade so werden nur die Pointer in die Datei geschrieben.
Es ist ganz wichtig, jeden einzelnen String in etwa so wie folgt zu speichern:
Delphi-Quellcode:
Das Speichern von Strings ist zwar sehr mühsam, lässt sich aber leider nicht viel einfacher machen. Muss man so hinnehmen. Auf jeden fall rate ich dir aber auch zu FileStreams!
procedure WriteStringToStream(stream: TFileStream; str: string);
var len: integer; begin len := length(str); // Länge des strings ermitteln stream.write(len, SizeOf(len)); // Länge des Strings speichern stream.write(PChar(str)^, len); // String mittels PChar speichern end; procedure ReadStringFromStream(stream: TFileStream; var str: string); var len: integer; begin stream.read(len, SizeOf(len)); // Länge des Strings auslesen SetLength(str, len); // Länge des Srings setzen stream.read(PChar(str)^, len); // Strings mittels PChar auslesen end; |
Re: Wie kann ich einen Record in eine Datei schreiben/lesen
Zitat:
Zitat:
Mfg Frank |
Re: Wie kann ich einen Record in eine Datei schreiben/lesen
Zitat:
|
Re: Wie kann ich einen Record in eine Datei schreiben/lesen
Zitat:
Delphi-Quellcode:
und
stream.write(str[1], 255);
Delphi-Quellcode:
greetz :-D
stream.read(str[1], 255);
|
Re: Wie kann ich einen Record in eine Datei schreiben/lesen
Zitat:
Dabei werden 100pro nur die Pointer gespeichert. Dafür leg ich meine Hand ins Feuer :) |
Re: Wie kann ich einen Record in eine Datei schreiben/lesen
|
Re: Wie kann ich einen Record in eine Datei schreiben/lesen
n'abend,
strings in char umwandlen... ? da strings nur pointer sind... ? :pale: mein magen. Also erstmal sind Pointer Zeiger. Diese zeigen auf eine vorher festgelegte Adresse im Speicher. Ein Char, also ein einzelnes Zeichen ist ja bekanntlich ein Byte groß. Ein String besteht aus einem bzw. mehrenen Chars. Ein String ist also nicht's weiteres als ein "Array of Char", somit entfällt hier im Prinzip eine Umwandlung. Mit Ausnahme Ascii-Zeichen: #0 definiert das Ende eines Delphi-Strings daher sollte man D-Strings nach Pchar() konvertieren. |
Re: Wie kann ich einen Record in eine Datei schreiben/lesen
ich hatte auch versucht "überlange" (> 255 zeichen ) strings zu speichern
BlockWrite / BlockRead und wieder vernümpftig auszulesen, ging leider nicht bis ich den umweg über char gekommen habe mir ist schon klar das ein string ein array of char ist nur wenn dieser string mehr zeichen hat sprich grösser als 4 Byte wird, gibs probleme zumindest bei mir .. ( delphi5 prof ) |
Re: Wie kann ich einen Record in eine Datei schreiben/lesen
Hallo,
zuerst mal vielen Dank für die Tip´s, Habe inzwischen von NET7 den TIP "So speichert man Records in eine Datei und ließt sie wieder aus: " gefunden und getestet. Der funktioniert super. Ich finde dieses Foprum echt super. Gruß Martin |
Re: Wie kann ich einen Record in eine Datei schreiben/lesen
und wie gehst du nun mit grossen strings um ?
|
Re: Wie kann ich einen Record in eine Datei schreiben/lesen
Zitat:
ein String in Delphi hat keine Ende markierung. Ein String wird bei Delphi intern als Pointer gehandhabt. So wird auf ein "Array of Char" gezeigt und die Länge ist im 0ten Byte festgehalten wenn ich nicht irre, Strings fangen nicht umsonst mit #0 an. Du kannst selbst probieren einen String zu erzeugen wo mittendrin #0 vorkommt und dann mit "length(String)" die länge ermitteln und dann wirst du sehen das der String nicht bei #0 aufhört. Wenn es um PChar's geht hast du recht, dort wird das Ende durch #0 gekennzeichnet da keine Längeninformation gespeichert wird (PChar's fangen deshalb auch bei Index 0 an) |
Re: Wie kann ich einen Record in eine Datei schreiben/lesen
Moin!
Auch nicht ganz richtig: Du beschreibst einen ShortString, also die Stringart die auf 255 Zeichen begrenzt ist und zur Kompatibilität mit Pascal vorhanden ist. Ein String ist heutzutage ein AnsiString und der hat vor dem Pointer die Längenangabe und die Grösse des alloziierten Buffers. MfG Muetze1 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:07 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz