Delphi-Quellcode:
VAR i : INTEGER;
s : string;
key:char;
begin
begin
s := '';
for i := 0 to (Memo1.lines.count -1) do
s := s + Memo1.lines.text;
i := (50 - Length(Memo1.Text));
lbl_Zeichen.Font.Color := clgreen;
lbl_Zeichen.caption := inttostr(i);
if i = 0 then
begin
key := #13;
end;
end;
Ich habe es mal so gemacht, aber Problem ist hier, dass wenn nach Zeichen einen Zeilenumbruch macht und ich die ENTF Taste drücke ich bei Zeichen50 hängen bleibe, ist auch logisch warum, aber wie kann ich das nun umgehen...?! Ein weiteres Problem ist, dass er die Zeichen falsch zählt, deswegen kann ich zB bei Zeile2 keinen Umbruch nach 50Zeichen machen...wer hat Rat?! =) danke