Explizit nach String[20] casten?

[hzzm]

Ich bin gerade dabei meine Fehler "Implizite String-Umwandlung" auszumerzen.

Dabei bin ich auf eine Zuweisung gestossen, bei der ich explizit nach String[20] casten muss.
Ich kenne die Syntax dafuer aber nicht und die Suche nach der Information gestaltet sich etwas schwierig.

Code:

var
  Name: String[20];
begin
  //...
  Name := TEdit(Sender).Text;

Ich braeuchte sowas wie

Code:

Name := String[20](TEdit(Sender).Text);

um explizit zu casten.
Eine Abweichung von String[20] ist keine Option.

Danke!

[Bernhard Geyer]

ist nicht ein Short-String ein Ansistring?

  Name := AnsiString(TEdit(Sender).Text);

[Klaus01]

.. was soll passieren wenn der Text im Edit länger als 20 Zeichen ist? Kürzen des Textes?
.. was soll passieren wenn der Text im Edit kürzer als 20 Zeichen ist? Padding?

Grüße
Klaus

[Uwe Raabe]

Zitat von Klaus01:

.. was soll passieren wenn der Text im Edit kürzer als 20 Zeichen ist? Padding?

Wieso? Ein String[20] muss ja nicht zwingend 20 Zeichen haben. Das ist lediglich der Maximalwert.

[hzzm]

Zitat von Bernhard Geyer:

ist nicht ein Short-String ein Ansistring?

  Name := AnsiString(TEdit(Sender).Text);

Vielen Dank, das funktioniert.

Zitat von Klaus01:

.. was soll passieren wenn der Text im Edit länger als 20 Zeichen ist? Kürzen des Textes?
.. was soll passieren wenn der Text im Edit kürzer als 20 Zeichen ist? Padding?

1. Abschneiden
2. Gar nix, das gleiche wie wenn ein ShortString kuerzer als 255 Zeichen ist

[p80286]

Eigenmtlich benötigt man Shortstrings oder

Delphi-Quellcode:

var
  mystring:string[x];

nur wenn man irgendwelche Tricksereien durchführen möchte. Das geht von for i:=1 to Byte(mystring[0]) do {statt length() bis zu mystring[0]:=0 {statt ''} oder man muß mit fixen Satzlängen/Stringlängen arbeiten aber da bevorzuge ich das mycharray:array [1..x] of ansichar {/char} Gruß
K-H

[hzzm]

Ja, leider benoetige ich String[20] fuer exotische Tricksereien.
Der String[20] ist in einem packed Record, der als Objekt in einen zLib CompressionStream -> uTPLb_CryptographicLibrary EncryptionStream -> File fliesst.
Die Kompression->Verschluesselung benoetigt Arrays mit fester Laenge in Record; Da ich Millionen dieser Mini-Dateien (ein paar hundert Bytes pro) speichern muss, kann ich keine vollen Datentypen benutzen, da sonst die FileSize der Dateien ununoetig in die Hoehe getrieben wird.

[himitsu]

Man kann sich auch selber einen Record-String bastelt.
x: array[0..x] of WideChar // WideChar oder AnsiChar, wegen fester größe bei der Übertragung
Delphi kann da zeilweise automatisch zwischen String und diesem Array konvertieren.

Das ganze pappt man dann noch in einen Record, batelt implizite Casts von/zu String dran
und kann dann intern in AnsiChar z.B. als UTF8 speichern.


Alternativ:
TPersistent nehmen
da als Property seine Daten rein
und dieses Datenobject lässt sich dann einfach mit Systemmitteln in einen Stream serialisieren und wieder deserialisieren,
was dann auch mit dynamischer Länge funktioniert.