Typisierte Dateien nicht möglich?

[greenmile]

Hallo,

ich bin gerade dabei, testhalber einige kleinere Anwendungen auf Firemonkey zu portieren um zu testen, inwiefern FM inzwischen produktiv einsetzbar ist.

Unter Windows verwende ich typisierte Dateien:

Code:

Type
  TIrgendwas = Record
    Text1: String[25];
  End;

var Testdatei: File of TIrgendwas;

Beim compilieren bekomme ich unter FM/Android jedoch die Fehlermeldung "; erwartet, [25] gefunden". Funktioniert das so unter FM / Android nicht?

[mkinzler]

Der neue LLVM basierte Compiler kenntz keine ShortStrings

http://docwiki.embarcadero.com/RADSt...om_Desktop_aus

[greenmile]

Ok, aber was verwende ich bei typisierten Dateien dann? Ich muss ja eine String-Länge definieren.

[mkinzler]

In dem Artikel wir Array Of Char vorgeschlagen oder halt RawByteStrings:

http://andy.jgknet.de/blog/2013/10/t...-byte-strings/

[greenmile]

Grmmmpff.
Danke für die Info

[himitsu]

LongStrings und dymanische Arrays ja, dann aber nicht mehr in einem Record.

Du kannst maximal ein statisches Char-Array in den Record packen und über Record-Methoden/Property einen Stringzugriff darauf implementieren.

Oder du steigst auf Datenobjekte um und bastelst dir dafür entsprechende Speicherroutinen (hier kannst du z.B. auch TReader/TWreiter verwenden)
oder du nimmst persistente Datenopjekte und probierst es mit den entsprechenden Serialisierungsfunktionen der Streams, bzw. direkt über TReader/TWriter.

[Mavarik]

Zitat von greenmile:

Hallo,

Delphi-Quellcode:

Type
  TIrgendwas = Record
    Text1: String[25];
  End;

Nimm einfach

Delphi-Quellcode:

Type
  TIrgendwas = Record
    Text1: Array[0..25] of Byte;
  End;

Fertig...

[Dejan Vu]

Seufz:
http://www.delphipraxis.net/1259922-post1.html

[himitsu]

Wieso Byte?
Ich denk dort soll ein String rein, mit vielen Chars.

Delphi-Quellcode:

type
  TMyRecord = record
    MyInteger: Integer;
    _MyString: array[0..24] of AnsiChar;  // UTF8-codiert
    ...
  private
    function  GetMyString: string;  // hier drin UTF8Encode/UTF8Decode und die Zuweisung an/von _MyString
    procedure SetMyString(Value: string);
  public
    property MyString: string read GetMyString write SetMyString;
  end;

Delphi-Quellcode:

type
  TMyRecord = record
    MyInteger: Integer;
    _MyString: array[0..24] of Char;
    ...
  private
    function  GetMyString: string;  // hier drin die Zuweisung an/von _MyString
    procedure SetMyString(Value: string);
  public
    property MyString: string read GetMyString write SetMyString;
  end;

[Dejan Vu]

Zitat von himitsu:

Wieso Byte?

Wer spricht hier von Bytes? Der Link im Link? Es werden dort alle Möglichkeiten aufgezeigt, einen ShortString zu ersetzen und dazu gehört neben dem Array of Char eben auch RawBytes, wobei ich letzteres vorziehe, weil ich neuerdings bei 'Char' immer an 'Zeichensätze' und 'Konvertierung' denke. Muss nicht sein, aber bei 'RawBytes' denke ich nicht daran.