Variante Records, Strings und 32 bzw. 64 Bit

[himitsu]

PS: Seit Delphi 2006 kann man auch Methoden und Property in den Records verbauen.

Delphi-Quellcode:

type
  TVarStr = record
  private
    function ReadPart(StartLength: Integer): AnsiString;
  public
    Value: string[32];  // es gibt eine Funktion mit dem Namen "Str" ... siehe "Val"
    property P1: AnsiString index 0106 read ReadPart;
    property P2: AnsiString index 0706 read ReadPart;
    property P3: AnsiString index 1306 read ReadPart;
    property P4: AnsiString index 1906 read ReadPart;
    property P5: AnsiString index 2506 read ReadPart;
    property P6: AnsiString index 3102 read ReadPart;
  end; 

function TVarStr.ReadPart(StartLength: Integer): AnsiString;
begin
  Result := Copy(Value, StartLength div 100, StartLength mid 100);
end;

Ansonst mußt du statt string[x] jeweils ein array[0..x-1] of AnsiChar verwenden.