|
Registriert seit: 31. Aug 2007
Ort: 99974 MHL
695 Beiträge
Delphi 10.1 Berlin Starter
|
Re: TStringList => Anordnung der Einträge
17. Nov 2007, 00:35
Delphi-Quellcode:
procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if copy(Memo1.Text,Memo1.SelStart-2,3)='ABC' then begin
Memo1.Text:=Memo1.Text+'DEF';
Memo1.SelStart:=Length(Memo1.Text);
end;
end;
Das funzt bei mir mit nem normalen TMemo.
Karl-Heinz Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen) 
|