Modificar lineas de un memo.

[Fat]

Buenas,

Tengo la siguiente situación, necesito eliminar el contenido las lineas de un memo a partir de que se encuentre una ','.
Ejemplo:

linea 1 'Empresa,departamento del trabajador'
y que quede solamente 'Empresa'
linea 2 'Puesto, del trabajador'
y que quede solamente 'Puesto'

Muchas gracias de antemano.

Saludos.

[ecfisa]

Hola Fat.

Empezado por Fat

necesito eliminar el contenido las lineas de un memo a partir de que se encuentre una ','.

Código Delphi [-]
procedure DelFromComma(M: TMemo);
var
  s: string;
  i, p1: Integer;
begin
  for i:= 0 to M.Lines.Count-1 do
  begin
    s:= M.Lines[i];
    p1:= Pos(',', s);
    if p1 <> 0 then
    begin
      Delete(s, p1 , MaxInt);
      M.Lines[i]:= s;
    end;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  DelFromComma(Memo1);
end;

Saludos

[Fat]

Muchísimas gracias ecfisa funciona de maravilla.