Hola Fat.
Cita:
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