Mein Programm ist Arbeitsspeicher hungrig..

[himitsu]

Delphi-Quellcode:

record
  S: String[5];  // oder Array of Char/AnsiChar/WideChar
  W: Word;
  procedure Setter(Value: Boolean);  // if Value then W := W or (1 shl Index) else ...
  function Getter: Boolean;  // Result := W and (1 shl Index) <> 0;
  property W1: Boolean index 0 read Getter write Setter;
  property W2: Boolean index 1 read Getter write Setter;
  property W3: Boolean index 2 read Getter write Setter;
  ...
end;

Aber vorher sollten sowieso die Speicherlecks behoben werden, bevor man veruscht die läppischen 2 MB auf 280 KB, bzw. 320 KB mit ShortString oder 480 KB mit WideChar zu schrumpfen.