Função Copy
Alguem saberia me dizer como eu faço para copiar uma string somente até o primeiro espaço???
copy(edit1.text,1,?????);
se eu tiver no edit : Leandro Oricchio
o copy retornar só : Leandro
Valeu
copy(edit1.text,1,?????);
se eu tiver no edit : Leandro Oricchio
o copy retornar só : Leandro
Valeu
Leandrooricchio
Curtidas 0
Respostas
Marcelo.c
28/04/2003
copy(edit1.text,1,7);
Pois 7 é o número de caracteres de Leandro.
Pois 7 é o número de caracteres de Leandro.
GOSTEI 0
Ggean
28/04/2003
Seria algo assim,
Function Copy_ate_espaco(s:string):string;
var
a:string;
i:integer;
begin
if trim(s)<>´´ then//ve se o valor nao é branco
begin
For i:=0 to length(s) do
begin
if s[i]<>´ ´ then
a:=a+s[i];
else
break;
end;//do For
result:=a;
and//do if Trim
else
result:=´´;
end;//da Function
Nao testei mas verifique, se nao funcionar mande-me um Email;
:lol: copec@utam.br
Gean Carlos
Valeu
GOSTEI 0
Dedi
28/04/2003
muito simples
copy(´Mario de Andrade,1,pos(´ ´,Mario de Andrade´))
falou.
copy(´Mario de Andrade,1,pos(´ ´,Mario de Andrade´))
falou.
GOSTEI 0
Dedi
28/04/2003
desculpe faltou as aspas
nome:= copy(edit1.text,1,pos(´ ´,edit1.text));
nome:= copy(edit1.text,1,pos(´ ´,edit1.text));
GOSTEI 0