apagar um caracter de um campo da tabela

Delphi

25/06/2003

Quero apagar somente um caracter do campo de uma tabela, e esse caracter está na primeira posição.

Ex.:

Tabela Cliente, no campo nome tem a seguinte informação.
* Ronaldo Pereira Silva

Quero apagar o ´*´

Como faço isso?

Obrigada


Debora

Debora

Curtidas 0

Respostas

Flávio Luiz

Flávio Luiz

25/06/2003

Bom Debora, tem varias maneiras de fazer isso mas a mais simples
é a seguinte:

tabela[CAMPO] := copy(tabela.fieldbyname(´CAMPO´).asstring,2,tamanho do campo -1);

ok...espero que ajude
Flavio


GOSTEI 0
Flávio Luiz

Flávio Luiz

25/06/2003

Bom Debora, tem varias maneiras de fazer isso mas a mais simples
é a seguinte:

tabela[CAMPO] := copy(tabela.fieldbyname(´CAMPO´).asstring,2,tamanho do campo -1);

ok...espero que ajude
Flavio


GOSTEI 0
Thaisandrade

Thaisandrade

25/06/2003

Debora, fiz uma função que faz isso:

Ex.:

DeleteChar(´*Ronaldo´,´*´);

A função retira todo os ´*´ que encontrar.

function DeleteChars(Texto, Char: string): string;
var
x: integer;
begin
if (Trim(Char) = ´´) or (Trim(Texto) = ´´) then
begin
end;
for x:= 0 to Length(Char) do
begin
while Pos(Char[x],Texto) > 0 do
Delete(Texto,Pos(Char[x],Texto),1)
end;
Result:= Texto;
end;


GOSTEI 0
Bilouro

Bilouro

25/06/2003

UPDATE TABELA_CLIENTE
  SET NOME = SUBSTRING(NOME,2,LEN(NOME))
 WHERE SUBSTRING(NOME,1,1) = ´*´


forte abraço!


GOSTEI 0
POSTAR