RE: [delphi-br] Transferir para um edit
Se eu entendi bem:
Texto := form2.Texto_Comando.text;
{
se Texto_Comando for um Edit, agora se for uma variavel ela tem q estar
declarada na parte publica do form2. Neste caso ficaria assim:
Texto := form2.Texto_Comando;
}
Eduardo Castro Alves
Analista de Sistemas
-Original Message-
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of
conexaoi
Sent: terça-feira, 11 de abril de 2006 11:40
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Transferir para um edit
Uma ajuda por favor!
Gente Eu tenho um formulário (Form2) e um edit (Texto_comando)
Dentro do edit terá o texto 'dezexe c:\Cursos\WinXp.zip winxp01.exe'
assim:
Texto := 'dezexe c:\Cursos\WinXp.zip winxp01.exe';
eu quero substituir o texto 'dezexe c:\Cursos\WinXp.zip
winxp01.exe'; pelo conteúdo q houver dentro do edit (texto_comando),
assim ó:
_
Texto := 'dezexe c:\Cursos\WinXp.zip winxp01.exe'; isso
Texto := form2.Texto_Comando; == por isso
eu escrevi assim mas tá dando um erro!
Está certa a sintaxe de como se referir ao conteúdo de um edit?
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
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
Re: [delphi-br] Transferir para um edit
Utilize a propriedade Text do componente TEdit
Texto := form2.Texto_comanto.text;
--
Eng. Fernando Nomellini
Analista Programador Sr.
Datamace Informática Ltda
- Original Message -
From: conexaoi
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, April 11, 2006 11:39 AM
Subject: [delphi-br] Transferir para um edit
Uma ajuda por favor!
Gente Eu tenho um formulário (Form2) e um edit (Texto_comando)
Dentro do edit terá o texto 'dezexe c:\Cursos\WinXp.zip winxp01.exe'
assim:
Texto := 'dezexe c:\Cursos\WinXp.zip winxp01.exe';
eu quero substituir o texto 'dezexe c:\Cursos\WinXp.zip
winxp01.exe'; pelo conteúdo q houver dentro do edit (texto_comando),
assim ó:
_
Texto := 'dezexe c:\Cursos\WinXp.zip winxp01.exe'; isso
Texto := form2.Texto_Comando; == por isso
eu escrevi assim mas tá dando um erro!
Está certa a sintaxe de como se referir ao conteúdo de um edit?
--
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!.
[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
RE: [delphi-br] Transferir para um edit
Ve se é isso:
function TForm1.CarregaEdit(pTexto: String): Boolean;
var
vIntCount,
vIntFor : Integer;
vStrAux : String;
begin
Result:= True;
vIntCount := 0;
vStrAux := '';
for vIntFor := 1 to Length(pTexto) do
try
if (pTexto[vIntFor] ' ') and (vIntFor Length(pTexto)) then
begin
vStrAux := vStrAux + pTexto[vIntFor];
end
else
begin
Inc(vIntCount);
if vIntFor = Length(pTexto) then
vStrAux := vStrAux + pTexto[vIntFor];
// Se o nome dos Edit's for 1, 2 e 3
TEdit(FindComponent('Edit' + IntToStr(vIntCount))).Text :=
Trim(vStrAux);
// Se não for
{
Case vIntCount do
0 : SeuEdit1.Text := Trim(vStrAux);
1 : SeuEdit2.Text := Trim(vStrAux);
2 : SeuEdit3.Text := Trim(vStrAux);
end;
}
vStrAux := '';
end;
except
on E : Exception do
begin
ShowMessage(E.Message);
Result := False;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
CarregaEdit('Carrega_edit1 Carrega_edit2 Carrega_edit3');
end;
QQ da um grito.
Eduardo Castro Alves
Analista de Sistemas
-Original Message-
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of
conexaoi
Sent: sexta-feira, 31 de março de 2006 01:10
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Transferir para um edit
Ai pessoal um aló para todos!
Eu tenho uma tabela1 com o campo [caminho] onde eu nela há dados
nesta forma.
dezexe c:\Cursos\WinXp.zip winxp01.exe
eu quero passar para caixa de texto (edit) os valores: para serem
manipulados.
dezexe == passar para edit1
c:\Cursos\WinXp.zip == passar para edit2
winxp01.exe == passar para edit3
Um único valor constante é o espaço que separa cada caminho.
dezexe c:\Cursos\WinXp.zip winxp01.exe
Bom se alguém puder me ajudar com qualquer dica eu agradeço.
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
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
