Fun��o Copy

Question

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 Oricchioo copy retornar s� : LeandroValeu...

Marcelo.c · Answer

copy(edit1.text,1,7);Pois 7 � o n�mero de caracteres de Leandro....

Ggean · Answer

[quote:19f431290e=�leandrooricchio�]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<>� � then a:=a+s; else break; end;//do For result:=a; and//do if Trim else result:=��;end;//da FunctionNao testei mas verifique, se nao funcionar mande-me um Email; :lol: copec@utam.brGean Carlos Valeu[/quote:19f431290e]...

Dedi · Answer

muito simples copy(�Mario de Andrade,1,pos(� �,Mario de Andrade�))falou....

Dedi · Answer

desculpe faltou as aspasnome:= copy(edit1.text,1,pos(� �,edit1.text));...

F�rum Fun��o Copy #156425