Parrafos de un Memo

[roman]

No me queda claro eso de que los Memo no se llevan con los párrafos. Si en una hoja impresa hay párrafos, ¿cómo no los va a haber en un archivo de texto?

Para mi, un doble salto de línea ($0D$0A$0D$0A en Windows) marca el final de un párrafo.

Aquí una rutina para extrer el párrafo actual de un Memo. Seguro hay algún detalle que revisar.

Código Delphi [-]
uses StrUtils;

procedure ExtraeParrafo(Memo: TMemo; Parrafo: TStrings);
var
  S: String;
  I, A, B: Integer;

begin
  // Encontrar el final del párrafo
  S := Memo.Text;
  I := Memo.SelStart;
  B := PosEx(#$D#$A#$D#$A, S, I);

  if B = 0 then B := Length(S);

  // Encontrar el comienzo del párrafo
  S := ReverseString(S);
  I := Length(S) - (I + 1);
  A := PosEx(#$A#$D#$A#$D, S, I);

  if A > 0 then A := Length(S) - A;

  Parrafo.Text := Copy(Memo.Text, A, B - A);
end;

Ejemplo de uso:

Código Delphi [-]
// Extrae el párrafo actual de Memo1 y lo pone en Memo2
ExtraeParrafo(Memo1, Memo2.Lines);

// Saludos

[ecfisa]

Para mi, un doble salto de línea ($0D$0A$0D$0A en Windows) marca el final de un párrafo.

Recién me desayuno con el doble salto de línea . ¡Con razón no podía detectar el #$D#$A como CRLF !...


Saludos.

[sac]

Trate de correr el código de Roman con mi delphi 7 pero no reconoce la sintaxis en las lineas del Reversestring y posex... creo que tendría que funcionar perono puedo correrlo.

[roman]

¿Qué significa que no reconozca la sintaxis? ¿Qué error te marca? ¿Incluiste la unidad StrUtils en el uses?

// Saludos

[sac]

Roman perdona la ignorancia jeje. Me había olvidado de copiar el StrUtils en el uses asi y todo cuando compilo en la linea del codigo del procedure ExtraeParrafo me da como error Unsatisfied forward or external declaration. A que se puede deber?
Estoy entusiasmado con probarlo porque a priori parece que es lo que necesito.

[Casimiro Noteví]

Pon tu código fuente, seguramente no has declarado la función igual que la implementación.

[sac]

Roman compilé el programa y agregué el código para buscar párrafos que subiste y anduvo de mil maravillas. Desde ya muchas gracias, solucionó gran parte de la aplicación que estoy desarrollando.
Nuevamente gracias.