Fórum Arquivo texto #274264

s := Edit.Text; 
with(Memo1)do 
begin 
   while(Lines.IndexOf(s) <> -1)do 
   begin 
      Lines.Delete(Lines.IndexOf(s)); 
      Lines[Lines.Count -1] := FormatarMemo(Lines.Count -1); 
  end; 
end;

function TForm1.Formatar(ANumeroLinha: Integer): String; 
Var 
   J : Integer; 
begin 
   Result := ´´; 
   With(Memo1)do 
   Begin 
      For J := 1 To Length(Lines[ANumeroLinha]) Do 
      Begin 
         If(Copy(Lines[ANumeroLinha],J,1) <> ´,´)Then 
         Begin 
            Result := Result + Copy(Lines[ANumeroLinha],J,1); 
         End; 
      End; 
   End; 
end;