max Länge von TMemo.Text und String

[himitsu]

Wäre 'ne Idee. (wobei die #00 mit größter Wahrscheinlichkeit der Grund ist)

Und seh ich das richtig und du hängst wirklich die gleiche Zahl 3-mal an?

Delphi-Quellcode:

St := '';
Insert(Chr(Zahl), St, Length(St)+1);
Insert(Chr(Zahl), St, Length(St)+1);
Insert(Chr(Zahl), St, Length(St)+1);

{ vvv }

St := Chr(Zahl) + Chr(Zahl) + Chr(Zahl);

Delphi-Quellcode:

St := Chr(Zahl) + Chr(Zahl) + Chr(Zahl);
Insert(St, T, Length(T)+1);

{ vvv }

Insert(Chr(Zahl) + Chr(Zahl) + Chr(Zahl), T, Length(T)+1);

Um die #00 zu umgehen kannst du ja auf Hexadezimal umstellen

Chr(Zahl) > IntToHex(Zahl, 2)


************************************************** *

Aber ich vermute mal du meinst es wohl eher so

Code:

Insert(Chr(Zahl[color=red]1[/color]) + Chr(Zahl[color=red]2[/color]) + Chr(Zahl[color=red]3[/color]), T, Length(T)+1);
{bzw}
Insert(Chr([color=red]R[/color]) + Chr([color=red]G[/color]) + Chr([color=red]B[/color]), T, Length(T)+1);

da kann man aber auch mit IntToHex gleich alle Farbwerte zusammen behandelnInsert(IntToHex(Farbe{TColor}, 6), T, Length(T)+1);