Buscar

Apagando tudo depois ou antes de uma string.

Código

//antes
var s : string;
i : integer;
begin
 s:='DELPHI PROGR;AMMING';
 i:=Pos(';',s);
 s:=copy(s,1,i-1);
 edit1.text:=s;
end;

//depois
s:='DELPHI PROGR;AMMING';
s:=trim(copy(S,pos(';',S)+1,length(S)));
edit1.Text:=S;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Componentes
Adicionada dia: 26/10/05
Por: Junior
Visualizada: 1599 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009