Datei mit FileStream auslesen

[himitsu]

Zitat von blackfin:

Ich weiss, standardmäßig ist bytes nicht definiert, aber der Name wäre mir zu generisch und würde mir Bauchschmerzen in Hinblick auf die Zukunft bereiten.

Da wir unsere Typen meißt mit einem T kennzeichnen ... TBytes gibt es schon.

[blackfin]

Rüschtüsch...also gleich mal den Vorschlag korrigieren

[DeddyH]

Delphi-Quellcode:

type
  TEinEindeutigerNameOhneVerwechslungsgefahr = record

[delphinewbie]

Hi,
danke für eure Tipps. Habe es umbenannt, nur ist das leider nicht mein Problem...
Ich möchte nochmal nachhaken : Ist TFilestream tatsächlich die einzige Variante, derartige Dateien auszulesen ?

tschüß

[DeddyH]

Nö, TMemoryStream z.B. ginge auch. Was wohl nicht (so einfach) geht, ist das althergebrachte satzweise Lesen, da die Größe des Blocks ja variiert.

[Nachteule]

Zitat von delphinewbie:

Hi,
danke für eure Tipps. Habe es umbenannt, nur ist das leider nicht mein Problem...
Ich möchte nochmal nachhaken : Ist TFilestream tatsächlich die einzige Variante, derartige Dateien auszulesen ?

tschüß

Delphi-Quellcode:

var
  myStringList : TStringList;
begin
  myStringlist := TStringList.Create;
  myStringList.LoadFromFile('bah.txt');
  // mach irgendwas
  ...

  myStringList.free;

[DeddyH]

So wie ich das Dateiformat verstanden habe kommst Du mit TStringlist nicht zum Ziel.

[Nachteule]

jetzt wäre halt interessant, wie das zu lesende File aussieht...

[shmia]

Musst du die Datei bloss einlesen oder muss die Datei später auch verändert geschrieben werden?
Falls die Datei nur gelesen werden muss, könntest du Dir viel Arbeit sparen, wenn du eine Adapterklasse einsetzt.

Hier mal als Vergleich zwischen deiner alten Technik und meinem neuen Vorschlag:

Delphi-Quellcode:

Read(ds.FileID,sizeof(word)); // ALT
ds.FileID := h.ReadWord;      // NEU

// ALT - 3 Zeilen
Read(ds.string_length_comment[i],sizeof(word));
Setlength(ds.string_comment[i], ds.string_length_comment[i]);
Read(ds.string_comment[i][1],ds.string_length_comment[i]);

// NEU - nur eine Zeile
ds.string_length_comment[i] := h.ReadShortString;

Beim Einlesen eines Words ist der Unterschied noch recht gering,
aber beim Einlesen von den Strings zeigt sich doch, dass die neue Technik viel angenehmer ist.

Ausserdem kannst du Dir damit sämtliche Längenangaben in dem Record sparen
und dich voll auf die Nutzdaten konzentrieren.

Hier wäre mal die Deklaration der Adapterklasse:

Delphi-Quellcode:

  TStreamAdapter = class(TObject)
  protected
    FStream : TStream;
  public
    constructor Create(AStream:TStream;AOwnsStream: Boolean = False);
    destructor Destroy;override;
    function ReadBoolean: Boolean;
    function ReadChar: Char;
    function ReadCurrency: Currency;
    function ReadDateTime: TDateTime;
    function ReadDouble: Double;
    function ReadExtended: Extended;
    function ReadInt64: Int64;
    function ReadInteger: Integer;
    function ReadCString: string;
    function ReadShortString: string;
    function ReadSingle: Single;
    function ReadSizedString: string;
    function ReadWord:Word;
    procedure WriteBoolean(Value: Boolean);
    procedure WriteChar(Value: Char);
    procedure WriteCurrency(const Value: Currency);
    procedure WriteDateTime(const Value: TDateTime);
    procedure WriteDouble(const Value: Double);
    procedure WriteExtended(const Value: Extended);
    procedure WriteInt64(Value: Int64); overload;
    procedure WriteInteger(Value: Integer); overload;
    procedure WriteStringDelimitedByNull(const Value: string);
    procedure WriteShortString(const Value: ShortString);
    procedure WriteSingle(const Value: Single);
    procedure WriteSizedString(const Value: string);
    procedure WriteWord(const Value:Word);
  end;

Bei Interesse kann ich dir noch mehr zu der Adapterklasse schreiben.

[delphinewbie]

Hi shmia,
vielen Dank für deinen Vorschlag. Ja, die Datei muss nur ausgelesen werden. Veränderungen daran sind sogar unerwünscht !!!
Muss leider zugeben, dass ich mit Adapterklassen nichts anfangen kann, da ich ja auch erst anfange, mich mit delphi zu beschäftigen. Eins ist mir jedoch an deinem Beispiel aufgefallen :

Delphi-Quellcode:

// NEU - nur eine Zeile
ds.string_length_comment[i] := h.ReadShortString;

Ich lese doch eigentlich zwei Werte aus: 1. Länge der folgenden Zeichenkette - 2. Zeichenkette selbst

Bei dir in der einen Zeile kann ich aber nur erkennen, dass die Länge der Zeichenkette ausgelesen wird. Mir ist jetzt nicht klar, wie deine eine Zeile meine drei Zeilen ersetzt.

Auch wenn ich mir dadurch 'ne Menge Arbeit ersparen würde, stellt sich mir aber die Frage, ob damit der Fehler behoben wäre, der nach jedem Programmende auftritt.
Ich gehe bisher davon aus, dass das Auslesen der Datei richtig funktioniert, weil auch die korrekten Kurven usw. entstehen. Nur muss halt danach noch etwas unsauber programmiert sein (fehlende Speicherfreigaben oder ungültige Speicherbereiche...)
Ich habe die Hoffnung noch nicht aufgegeben, das Problem zu lösen und setze auch weiterhin ganz stark auf euer immenses Wissen
Tschüß und