Memo und typisierte Dateien

[Mysterio08]

Mhm, also ich werde wohl eine sehr unelegante Methode verwenden, ich werde zwei Variablen für den Text deklarieren, bei können 255 Zeichen aufnehmen, dann bin ich schonmal bei mehr als 500 und dann werde ich die Zeichen in die erste und ggf. in die zweite Variable transportieren. Dann muss sich der Nutzer wohl mit 510 Zeichen zufrieden geben.
Ehrlich gesagt überzeugt mich die Alternative nicht....

[DeddyH]

Delphi-Quellcode:

type
  TMyRec = record
    Inhalt: array[1..1024] of char;
  end;

procedure TFormTest.FormCreate(Sender: TObject);
var s: string;
    f: file of TMyRec;
    R: TMyRec;
begin
  FillChar(R,SizeOf(R),0);
  s := StringOfChar('a',Length(R.Inhalt));
  StrPCopy(@R.Inhalt,s);
  AssignFile(f,'C:\Test\Test.dat');
  {$I-}
  try
    Rewrite(f);
    write(f,R);
    CloseFile(f);
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
  {$I+}
end;

Hat bei mir einwandfrei funktioniert.

[Mysterio08]

Ich wollte Deine Idee gerade umsetzen, DeddyH, aber ich weiß nicht so recht, an welcher Stelle ich den Inhalt des Memos einsetzen soll, denn wie ich gelesen habe, füllt StrOfChar immer nur mit dem gleichen Zeichen!?
Ich stehe gerade auf'm Schlauch

[DeddyH]

Das war ja auch nur ein Test. Du müsstest statt

Delphi-Quellcode:

s := StringOfChar('a',Length(R.Inhalt));

Delphi-Quellcode:

s := Memo1.Text;

schreiben.

[edit] Oder sicherheitshalber besser

Delphi-Quellcode:

s := Copy(Memo1.Text, 1, Length(R.Inhalt));

[/edit]

[Mysterio08]

Also, mir ist heute noch eine Alternative eingefallen, die evtl. klappen könnte: mit einer TStringList arbeiten. Der Compiler zeigt mir wegen der Variablendeklaration und des records keine Fehlermeldung an, allerdings habe ich es nur grob getestet. Ich werde das Ganze morgen mal ausführlicher testen.

[DeddyH]

Du meinst eine TStringlist im Record? Da hättest Du aber wieder nur den Pointer gespeichert, der nützt Dir ja nichts.

[Mysterio08]

Ja, stimmt. Sobald ich das Memo in eine Variable vom Typ TStringList speichern will, gibt es eine saftige Fehlermeldung - logisch...
Dann werde ich um deinen Lösungsvorschlag nicht herumkommen, DeddyH. Wobei ich damit kein Problem habe.

[himitsu]

als Alternative: du nimmst einfach keine typisierte Datei :stupid:

- entweder du definiserst dir eine Binärdatei mit dynamischen "Feldern"
- oder du nimmst eine INI
- oder XML
- oder .... nja, gibt noch tausende andere Möglichkeiten

[DeddyH]

Zitat:

Zitat von Mysterio08

..., aus schulischen Gründen bin ich "gezwungen", eine typisierte Datei zu erstellen.

[himitsu]

Zitat:

Zitat von DeddyH

Zitat:

Zitat von Mysterio08

..., aus schulischen Gründen bin ich "gezwungen", eine typisierte Datei zu erstellen.

ups :oops:

nja, wenn man es genau nimmt, dann könnte man eine INI oder XML auch als File of Char ansehn :roll: