Okey, el problema anterior ya lo posteé en varios (aún no me ayudó nadie :S). Ahora tengo otro problema. Quiero hacer un "autocompletar". El algoritmo lo tengo ya hecho, solo me falta un procedimiento. Mi código:
Código Delphi
[-]texto:=Uppercase(memo1.lines.strings[memo1.caretpos.y]);
if Texto ='IF' then begin
memo1.Lines.Strings[memo1.CaretPos.y]:='If';
memo1.Lines.Add('');
memo1.Lines.Add('');
memo1.Lines.Strings[memo1.CaretPos.y]:='EndIf';
end;
Pues con eso si hay algo escrito en medio lo salta. Un ejemplo:
Código:
I //escribiendo "if"
destroy //algo escrito
Después
Exactamente se quedaría así. ¿Cómo podría arreglarlo para que se quede así:?
Muchas gracias a todos que me ayudáis siempre.