Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); begin // Indica la posición de la primera tabulación ShowMessage(IntToStr(Pos(#9, Memo1.Text))); // Sustituye las tabulaciones por un espacio Memo1.Text := AnsiReplaceStr(Memo1.Text, #9, ' '); end;
procedure TForm1.Button1Click(Sender: TObject); begin // Indica la posición de la primera tabulación ShowMessage(IntToStr(Pos(#9, Memo1.Text))); // Sustituye las tabulaciones por un espacio Memo1.Text := AnsiReplaceStr(Memo1.Text, #9, ' '); end;