TEdit: 255 Zeichen Maximum deaktivieren

[Nils]

Moin,

ich habe beim Widget win32/win64 beim TEdit eine maximale Zeichenbegrenzung von 255 Zeichen, in den entsprechenden Units steht {$H+} bereits, nutzt leider wohl nichts. Hat jemand eine Idee, was man dagegen tun könnte ?

Gruß,
Nils

[diogenes]

Ein TMemo verwenden und die Zeilenenden nachträglich entfernen bzw. duch Abstand ersetzen?

[felix96]

if length(meinEdit.Text)>255 then delete(meinEdit.Text,Length(meinEdit.Text)-1),1);

ungetestet^^

[Nils]

diogenes: Das ginge theoretisch denke ich, aber ich habe von anderen gehört die so viele Zeichen in ein Edit kloppen können bis der Speicher voll ist. Daher müsste es da doch eine fehlerhafte Einstellung oder irgendetwas Derartiges bei mir geben.
felix96: Das ist genau das was ich nicht will. Ich will die Zeichenbegrenzung deaktivieren, so würde ich sie ja doppelt aktivieren quasi. - Ich ändere den Titel mal schnell, dann ist es vielleicht klarer was ich meine.

[Teekeks]

Wie schon in der Delphi-Praxis gesagt: es geht!
Vl. einfach mal dein Lazarus neu Installieren, denn bei mir geht das unter Windows und Linux...

[Nils]

Lazarus ist neu installiert, aber das machen meine Edits leider absolut nicht mit, ich krieg das nicht gebacken irgendwie. Kann vielleicht mal jemand ein kleines Testprojekt erstellen bei dem es gehen müsste ? Dann würde ich das mal hier selbst kompilieren und man kann den Fehler leichter eingrenzen.

[theo]

Wie stellst denn du überhaupt fest, dass das nicht geht?
Und, mal ganz nebenbei, wozu willst du das haben? TEdit ist ja nicht zum Romane schreiben da.

Testen kannst du das z.B. so. Ob's angezeigt wird musst du nat. selber nachschauen.
z.B:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var s:AnsiString;
begin
  SetLength(s,500);
  FillChar(s[1],500,'L');
  s:=s+'azarus';
  Edit1.text:=s;
  ShowMessage(Inttostr(Length(Edit1.text)));
end;

[pluto]

Und, mal ganz nebenbei, wozu willst du das haben? TEdit ist ja nicht zum Romane schreiben da.

Ach warum nicht ? Ich schreibe gerne mein 1000 Seiten Romane bzw. mein 10.000 Zeilen Soruce-Code in einer Zeile *G*.

[theo]

Ach warum nicht ? Ich schreibe gerne mein 1000 Seiten Romane bzw. mein 10.000 Zeilen Soruce-Code in einer Zeile *G*.

Nicht jeder hat dein Talent.

[Euklid]

Nehme an, die 255-Zeichen-Begrenzung liegt an Windows? Unter Linux lässt sich TEdit mit wesentlich längeren Zeichenketten füllen, wenn ich mich recht erinnere.

[Teekeks]

Ich habe auch unter WIndows XP getestet: geht.

[Nils]

Moin,

hatte lange kaum Zeit, daher jetzt erst wieder eine Antwort von mir. Es ist ein ganz bescheuerter Fehler mit der Zwischenablage passiert. Der Text hatte an einer Stelle wie ich rausfand offensichtlich ein nicht sichtbares Zeichen, welches den String dann an der Stelle abbrach. Ist irgendwie ein #13 reingerutscht wie es aussieht. Dann ist klar, dass das Edit beim Einfügen aus der Zwischenablage den String abschneidet. Lustiger Fehler.

Gruß,
Nils