String-Literale

[Hawkeye219]

Hallo Stephan,

ich habe die Zeichen in der Stringkonstanten nicht gezählt. Falls es jedoch mehr als 255 sind, kann das zu Problemen führen:

Delphi-Quellcode:

procedure Test;
const
  s8   = '12345678';
  s32  = s8 + s8 + s8 + s8;
  s127 = s32 + s32 + s32 + s8 + s8 + s8 + '1234567';
  s128 = s32 + s32 + s32 + s32;
  s255 = s128 + s127;
  s256 = s128 + s128;
var
  s1 : AnsiString;
  s2 : ShortString;
begin
  s1 := s256;
  s2 := s255;
  s2 := s256;
end;

Die Fehlermeldung dürfte dir bekannt vorkommen...

Gruß Hawkeye