Ich habe eine typisierte datei mit einem Array von 17 String[78]. Dies soll ein Text mit 17 Zeilen zu je 78 Zeichen sein. Es stammt aus einer alten Pascalanwendung Nun will ich dieses aus der Datei in ein Memo lesen und dort die Bearbeitung ermöglichen. Das Auslesen und das bearbeiten funktioinieren ganz gut, nur das ich jetzt probleme mit der Zeilenlänge von 78 Zeichen habe. Wie kann ich diese im Memofeld begrenzen und vor allem was mache ich im Copy - Paste Fall????

Danke im voraus

Mit dem Ereignis Memo1Change gehts:


procedure TForm1.Memo1Enter(Sender: TObject);
begin
Memo1.Font.Name:='Courier';
end;
//.................................................
procedure TForm1.Memo1Change(Sender: TObject);
var i:integer;
s:string;
begin
for i:=0 to Memo1.Lines.Count-1 do
if length(Memo1.Lines[i])>78 then
begin
s:=Memo1.lines[i];
delete(s,79,1);
Memo1.Lines[i]:=s
end;
end;