![]() |
problem mit langen strings
moin
ich will in meinem programm sowas machen. var text: ansistring; text:=' 1000 zeichen string '; trotzdem bekomme ich immer einen compilerfehler: "stringliterale koennen maximal 255 zeichen enthalten" weis jemand was ich da falsch mache? gruß richard |
Re: problem mit langen strings
Hi!
Zitat von hier: ![]() Zitat:
getestet und bestätigt:
Delphi-Quellcode:
text:='123456789012345678901234567890123456789012345678901'+
'23456789012345678901234567890123456789012345678901234' + '5678901234567890123456789012345678901234567890123456789012345678901'+ '23456789012345678901234567890123456789012345678901234567'+ '89012345678901234567890123456789012345'+ '678901234567890123456789012345678901234567890123456789012'+ '34567890123456789012345678901234567890123456789012345678901'+ '2345678901234567890123456789012345678'+ '90123456789012345678901234567890123456789012345678901234567890'+ '12345678901234567890123456789012345678'+ '9012345678901234567890123456789012345678901234567890123456789012345678901234567890'+ '123456789012345678'+ '90123456789012345678901234567890123456789012345'+ '678901234567890123456789012345678901234567890123456789012345678901'+ '23456789012345678901234567890123456789012345678901234567890'+ '12345678901234567890123456789012345678901234567890'; Ciao Frederic |
Re: problem mit langen strings
herzlichen dank :)
|
Re: problem mit langen strings
Wenn ich aber einen string in einer Struktur definieren möchte (test : string[1024]) komm auch ein fehler:
[Fehler] test.pas(33): String-Literale können maximal 255 Elemente besitzen |
Re: problem mit langen strings
Zitat:
|
Re: problem mit langen strings
Zitat:
Hast du den Standardstring auf ShortString eingestellt? Welche Delphiversion? |
Re: problem mit langen strings
Das kann man meines wissens nicht umgehen.
Aber kann einen eigenen type machen:
Delphi-Quellcode:
type
LongString = record Len: integer; Content: array[1..1024] of char; // 1 KB end; function strtolstr(s: string): LongString; var i: byte; begin result.Len:= length(s); for i:=1 to result.Len do begin result.Content[i]:=s[i]; end; end; function lstrtostr(s: LongString): string; var i: integer; begin for i:=1 to s.Len do begin result:= result + s.Content[i] ; end; end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:23 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz