Salto de Carro por teclado

[[seoane]]

Imaginemos que tenemos un texto en el que el carácter '|' indica un cambio de linea, para cargarlo en un memo haríamos los siguiente:

Código Delphi [-]
var
  Texto: string;
begin
  Texto:= 'Uno|Dos|Tres';
  Memo1.Lines.Text:= StringReplace(Texto,'|',#13,[rfReplaceAll]);
end;

Se podrá dar el caso de que necesitemos insertar mas de un texto en el mismo memo, no tendría mayor dificultad:

Código Delphi [-]
var
  Texto: string;
begin
  Texto:= 'Uno|Dos|Tres';
  Memo1.Lines.Text:= StringReplace(Texto,'|',#13,[rfReplaceAll]);
  Texto:= 'Cuatro|Cinco|Seis';
  Memo1.Lines.Text:= Memo1.Lines.Text + StringReplace(Texto,'|',#13,[rfReplaceAll]);
end;

De todas formas recordarte que en windows el cambio de linea se indica con dos caracteres #13#10, en el caso del memo basta con indicar solo el #13 que delphi internamente se encarga de incluir en #10. Aunque la forma correcta de hacerlo seria la siguiente:

Código Delphi [-]
  Memo1.Lines.Text:= StringReplace(Texto,'|',#13#10,[rfReplaceAll]);

Espero que el ejemplo anterior te sirva de ayuda