Wie kann ich strings haben die länger als 255 zeichen sind ?

[pluto]

Hallo,
mir ist heute aufgefallen das das die strings nur 255 zeichen speichern...wie kann ich das umgehen ?
mir geht es eigentlich nur darum einen Text auf einen Canvas zu zeichnen und dabei würde ich gerne textRect nutzen !!!

hat da jemmand von euch eine idee ?

[theo]

Das ist jetzt nicht dein Ernst, oder?
Ich dachte immer du hättest ein bisschen Plan von Lazarus.
Compliereinstellungen -> Ansi Strings verwenden oder ($H+} im Code

[pluto]

ach so einfach ist das ?
ich war nur etwas überascht als ich die fehlermeldung vom complier gesehen habe !
in lazarus bin ich auch noch neu..... naja vielen dank auf jedenfall !

[pluto]

nein das wars leider nicht ! ich habe die einstellung garnicht gefunden unter compliereinstellungen !

und die anweisung wenn ich die verwende gibt den gleiche fehlermeldung aus:
{$H+}
edit:
habe sie unter complier einstellungen gefunden aber zeigt keine wirkung !
edit2: es kommt immer die gleiche meldung:
uPaint2Obj.pas(308,9) Error: Constant strings can't be longer than 255 chars

[danny61]

Kannst Du mal etwas Code dazu posten ?
Normalerweise sind die Strings nur durch den Arbeitsspeicher begrenzt.
Allerdings gilt das nicht für eine Zeile in der IDE.
Größere Strings mußt Du also über mehrere Zeilen "zusammenbauen".

[pluto]

Text:String;
text:='fahsjdfjöasdögljsaklöjgölkasjgklösajöglkjsalgjweigjrögj kmölkambmnbjahfgjahgöeuhguaöwrhguörhgahsöjghasöjnbvgkmnbmynxbmnyxjbfnurnbuarnbnbjnmnb,mynbgsagsagsaghsjahgjsaklhgjh78h43hgjj njnjangkajnglanjlgknsaljgnlasjngjlsangjnasgjasgjklnglrjg,'
bei so einem "langen" string meckert er !
nagut dann nehme ich eine StringList !

[monta]

Das Problem ist wie bei Delphi, zumindest bei älteren versionen. Ein String ist nicht auf 255 begrnzt, sondern nur die Stringzuweisung über den Quelltext der Ide, wenn du eben einer string-variable den Text so wie oben übergibts.
In dem Fal musst du einfach den string beispielsweise in 250-Zeichenblöcken übergeben

Text := 'ersten 250 zeichen' + 'nächsten 250 zeichen' + 'und so weiter...';

Auf die Art kannst du längere Strings übergeben, die nur durch das System begrenzt sind. Sei es durch Arbeitsspeicher oder Adressierung oder was auch immer.

[pluto]

Dank! habe ich mir schon beina gedacht das ist "nur" so mölgich ist einen langen text zu speichern !
das problem dabei ist jedoch das der user den Text eingibt und nicht ich !

[monta]

Aber wo gibt der User den den text ein? In ein Memo? oder gibt der ernsthaft über 250 Zeilen in ein Edit ein?

Und eine Zuweisung von text := Memo.Text; müsste eigentlich gehen.

Sag doch mal konkret, wo und wie der Text her kommt.

[pluto]

der text kommt aus einem memo soll später aus einer RichtEdit komponente kommen ! stimmt auch wieder das keiner einem Edit über 256 zeichnen eingeben wird !

[monta]

...und, wo liegt jetzt das Probleme? Zuweisungen solcher strings gehen doch problemlos:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var Testtext: string;
begin
  Testtext := Memo1.Text;
  ShowMessage(IntToStr(length(Testtext)));
end;

Mein Testtext in Memo1 hatte 29229 Zeichen und da gibt es keinen Fehler bei der Zuweisung.

[pluto]

naja ich war halt überrascht das es nicht geht ! ohne weiteres !
mehr nicht !
ich nehme jetzt sowieso eine TStirngList ! damit ist der fall für micht erstmal abgeschlossen !

[Euklid]

text:='fahsjdfjöasdögljsaklöjgölkasjgklösajöglkjsalgjweigjrögj kmölkambmnbjahfgjahgöeuhguaöwrhguörhgahsöjghasöjnbvgkmnbmynxbmnyxjbfnurnbuarnbnbjnmnb,mynbgsagsagsaghsjahgjsaklhgjh78h43hgjj njnjangkajnglanjlgknsaljgnlasjngjlsangjnasgjasgjklnglrjg,'

Da hast du dir ja einen sehr aussagekräftigen Text ausgedacht

[pluto]

naja das war ja nur damit ich ein beispiel hatte ! der eigentliche text hatte ich schon wieder gelöscht !
wie gesagt ich habe jetzt eine TStringlist damit dürfte das problem erstmal behoben sein !