strin nach array of byte

[yörsch]

noch ne´variante

Delphi-Quellcode:

type
  TTest = record
   case boolean of
   true : (Text : array [0..125] of char);
   false: (Zahl : array [0..125] of byte);
   end;

var OutStr : String;
TEST : TTest;
i : Integer;
b : Byte;
begin
  OutStr := 'Help';
  for i:=0 to Length(OutStr)-1 do 
    TEST.Text[i] := OutStr[i];
  b := TEST.Zahl[0];

ist leider nicht mit dynamischer größe wg. case im Record!