melhor q isso terei q dar comida na sua boca rsrs...
procedure TForm1.Button1Click(Sender: TObject);
Var
Nome: TFileName;
begin
Edit1.text := Copy(Texto,1,Pos(' ',Texto)-1);
Edit2.Text := Copy(Texto,Pos(' ',Texto)+2,Length(Texto));
Nome := ExtractFileName(Edit2.Text);
Edit3.Text := ChangeFileExt(Nome,'.exe');
end;
Desenvolvimento Sisponto <[EMAIL PROTECTED]> escreveu: é pq não é
LENGHT...
é LENGTH
----- Original Message -----
From: conexaoi
To: delphi-br@yahoogrupos.com.br
Sent: Monday, April 17, 2006 7:10 PM
Subject: [delphi-br] Re: Uma ajuda para transferir p/ um edit
Moacir não deu certo ainda dá erro nessa linha, diz que lenght não
está declarado, tô usando um form, 1 botão e 3 edits, dá uma olhada
veio,
Texto := Copy(Texto, Pos(' ', Texto)+1,Lenght(Texto));
dá mais essa força, obrigado
--- Em delphi-br@yahoogrupos.com.br, "Moacir (gmail)"
<[EMAIL PROTECTED]> escreveu
>
> Tente assim:
>
> begin
> Texto := 'dezexe c:\Cursos\WinXp.zip winxp01.exe';
> Edit1.Text := Copy(Texto,1, Pos(' ', Texto)-1);
> Texto := Copy(Texto, Pos(' ', Texto)+1,Lenght(Texto));
>
> // edit2
> if Length(Texto) > 0 then
> begin
> Edit2.Text := Copy(Texto,1, Pos(' ', Texto)-1);
> Texto := Copy(Texto, Pos(' ', Texto)+1,Lenght(Texto));
> end;
>
> // edit3
> if Length(Texto) > 0 then
> begin
> Edit3.Text := Texto;
> end;
>
> end;
>
> [ ]´s
> Moacir
>
> conexaoi escreveu:
> > Gente uma ajuda por favor
> >
> > Com um clique num botao eu quero extrair do texto 'dezexe
> > c:\Cursos\WinXp.zip
> >
> > winxp01.exe' e passar para edit assim.
> >
> > edit1 ==> dezexe
> > edit2 ==> c:\cursos\winxp.zip
> > edit3 ==> winxp.exe
> >
> > Mas tá ficando assim ó:
> > O edit1 tá legal 'dezexe'
> > O edit2 tá assim 'dezexe'
> > o edit3 tá assim 'dezexe c:\Cursos\WinXp.zip winxp01.exe'
> >
> > Eu usei os seguinte procedimentos
> > ====================================================
> > Istó é uma variável declarada
> > var Texto: String;
> > xx: Integer; // adoro usar xx, desde a epoca do Basic hehehe
> > =====================================================
> > Isto é a procedure
> > begin
> > Texto := 'dezexe c:\Cursos\WinXp.zip winxp01.exe';
> > xx := Pos(' ', Texto);
> > Edit1.Text := Copy(Texto,1, xx-1);
> > Texto := Delete(Texto, 1, xx);
> >
> > // edit2
> > if Length(Texto) > 0 then begin
> > xx := Pos(' ', Texto);
> > Edit2.Text := Copy(Texto,1, xx-1);
> > Texto := Delete(Texto, 1, xx);
> > end;
> >
> > // edit3
> > if Length(Texto) > 0 then begin
> > Edit3.Text := Texto;
> > end;
> >
> > end;
> > ====================================================
> >
> >
> > Texto := Delete(Texto, 1, xx);
> > Texto := Delete(Texto, 1, xx);
> > Essas linhas de comando está dando a seguinte mensagem:
Incompatible
> > types: "string" an "procedure, untyped pointer or intyperd
parameter'
> >
> > Eu não tó conseguindo achar o erro e completar o resto deste
> > procedimento.
> >
> > eu agradeço!
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
__________ Informação do NOD32 IMON 1.1493 (20060417) __________
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
---------------------------------
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
Leandro...
[> Mutuka <]
---------------------------------
Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e
anti-spam realmente eficaz.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
