Zeilenumbruch in tmemo

[wol]

Problem beim speichern von memo.text in Variable.
type
datensatz=record
datum :TDate;
text :shortstring;
replay :array[0..2] of byte;
end;
var satz :array[1..10] of datensatz;
Problemcode:
***************
satz[m].text:=memo1.text;
***************
Wenn im memo kein Zeilenumbruch ist funktioniert es.
Wenn im memo Zeilenumbrüche sind wird mein text nicht richtig gespeichert.
Es wird der Nächste Datensatz (satz[m+1] ganz schrecklich überschrieben.

Ich habe auch schon versucht, das memo zeilenweise auszulesen und den zeilenumbruch von 'Hand' gemacht,
nutzt aber alles nicht's.

[mkinzler]

Ersetzte den Zeilenumbruch vor dem Speichern mit einem anderen Zeichen

[taaktaak]

Moin Wolfgang,
ohne auf die Frage direkt einzugehen: In den ShortString passen nur 255 Zeichen! Ist es vernüftig den Inhalt eines Memos in einem ShortString speichern zu wollen? Ich würde es ja noch verstehen, wenn da der Inhalt eines Edits 'rein soll, aber einen Memo-Text?
Prüfe doch lieber zuerst dein Konzept...
Gruß Ralph

[wol]

Zitat:

Zitat von taaktaak

Moin Wolfgang,
ohne auf die Frage direkt einzugehen: In den ShortString passen nur 255 Zeichen! Ist es vernüftig den Inhalt eines Memos in einem ShortString speichern zu wollen? Ich würde es ja noch verstehen, wenn da der Inhalt eines Edits 'rein soll, aber einen Memo-Text?
Prüfe doch lieber zuerst dein Konzept...
Gruß Ralph

Danke, ich habe den Fehler gefunden.
Eigentlich hat alles funktioniert.
Ich verwende den text auch in einer checklistbox1 und die hat Probleme mit langen texten.
Ich lasse nun den text in der checklistbox verkürzt auf 20 char anzeigen.
Entschuldige, ich hab mich viel leicht erwas vorschnell ans Forum gewendet.
Danke