Validar un memo por linea

[deprimera]

roman gracias por tu respuesta

El codigo no funciona para lo q yo quiero pq como vos decis "al oprimir ENTER se pasa a la siguiente línea sólo si ya se completaron los tres caracteres" pero yo necesito q tambien m permita ingresar uno, dos o tres caracteres.

Te explico un poco lo q necesito:
Yo utilizo el memo para ingresar una cantidad de productos que vendo (estoy haciendo una factura de venta), por cada linea yo necesito entrar la cantidad de productos que estoy vendiendo que puede tener una, dos o tres cifras, por lo tanto cuando ingreso la cantidad que nesecito 1, 10 o 100 por ejemplo, con un enter poder pasar a la linea siguiente para cargar la proxima cantidad.

[roman]

Lo de impedir el cambio de línea sólo si se completaban los tres caracteres lo había puesto justamente por no saber con exactitud cuáles eran las necesidades, pero puedes modificarlo fácilmente:

Código Delphi [-]
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
var
  C, I: Integer;

begin
  I := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);
  C := Length(Memo1.Lines[i]);

  if (Key = #13) and (C >= 3) then
    Key := #0;

  if (C >= 3) and (Key <> #8) then
    Memo1.Lines.Insert(I + 1, '');
end;

Pero, por lo que comentas, te reitero que no creo que el Memo sea el componente adecuado. Podrías, por ejemplo, usar un StringGrid con una sola columna editable y una sóla fila editable:

ColCount = 2
RowCount = 2
FixedCols = 1
FixedRows = 1

y el siguiente código en su evento KeyPress:

Código Delphi [-]
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
var
  C: Integer;

begin
  C := Length(StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row]);

  if (Key = #13) then
  begin
    if StringGrid1.Row = StringGrid1.RowCount - 1 then
      StringGrid1.RowCount := StringGrid1.RowCount + 1;

    StringGrid1.Row := StringGrid1.Row + 1;
  end
  else if (C >= 3) and (Key <> #8) then
    Key := #0;
end;

Con esto, partes de una sóla celda y conforme el usuario oprime ENTER -sin importar si hay uno, dos o tres caracteres- se pasa a la fila siguiente (si era la última fila, se crea una nueva). Tienes mucha más libertad para moverte por entre las celdas si hay que editar algo, sin el riesgo de descuadrar cosas.

La fila y columna fija puedes usarla para poner rótulos, o bien te olvidas de ellas poniendo:

ColCount = 1
RowCount = 1
FixedCols = 0
FixedRows = 0

// Saludos

[deprimera]

gracias roman por lo q m enviast hasta ahora

queda algun problemita x resolver

si voy cargando los numeros y hago enter no hay problema
pero si voy con el cursor del mouse a alguna linea q ya tiene datos ingresados, lo borro y vuelvo a escribir m deja renglones entre medio d una linea y otra, y en algunos casos entran cuatro numeros, fijate si podes resolverlo por favor...desde ya graciass

[deprimera]

m olvide de decirte q sigo utilizando el memo pq m llevaria mucho tiempo pasar todo a un stringgrid