RadioGroup e Variáveis...

Delphi

05/11/2006

Olá Pessoal,

tenho esse radiogroup abaixo que está atribuindo o valor a uma variavel normalmente

begin
if radiogroup1.ItemIndex=0 then dir:= ´/teste/´;
if radiogroup1.ItemIndex=1 then dir:= ´/teste1/´;
if radiogroup1.ItemIndex=2 then dir:= ´/teste2/´;
if radiogroup1.ItemIndex=3 then dir:= ´/teste3/´;
end;

mas eu preciso que ele passe o valor a 3 variaveis para cada opção como no exemplo abaixo

begin
if radiogroup1.ItemIndex=0 then dir:= ´/teste1/´ and dir2:= ´/teste1/´ and ´/teste3/´;
end;

mas ele retorna a mensagem de erro ´Operator not applicable to this operand type´

É possível eu passar essas variáveis através desse radiogroup? alguém sabe oque está acontecendo ou tem outra alternativa?


Obrigado
WatchDogCWB


Watchdogcwb

Watchdogcwb

Curtidas 0

Respostas

Watchdogcwb

Watchdogcwb

05/11/2006

corrigindo...

begin
if radiogroup1.ItemIndex=0 then dir:= ´/teste1/´ and dir2:= ´/teste1/´ and dir3:= ´/teste3/´;
end;


GOSTEI 0
Ruysalles

Ruysalles

05/11/2006

begin
if radiogroup1.ItemIndex=0 then
begin
dir := ´/teste1/´;
dir2 := ´/teste1/´;
dir3 := ´/teste3/´;
end;
end;


GOSTEI 0
Watchdogcwb

Watchdogcwb

05/11/2006

begin if radiogroup1.ItemIndex=0 then begin dir := ´/teste1/´; dir2 := ´/teste1/´; dir3 := ´/teste3/´; end; end;


Muito Obrigado!!! funcionou!!!

mas agora eu tenho outro problema, estou tentando pegar uma listagem de arquivos do meu diretorio e jogar dentro do FTP mas não estou conseguindo e não retorna nenhuma mensagem de erro, abaixo segue o codigo

Lijst := TStringList.Create;
try
if FindFirst(´C:\teste\´ + data, faAnyFile, SearchRec) = 0 then
begin
Lijst.Add(SearchRec.Name);
while FindNext(Searchrec) = 0 do
Lijst.Add(SearchRec.name);
end;
for Index := 0 to pred(Lijst.Count) do
idFTP2.Put(Lijst[Index], ´/work/lixo/´ + Lijst[Index], true);
finally
Lijst.Free;
FindClose(SearchRec);
end;

aguém pode me dar uma mão?



Obrigado
WatchDogCWB


GOSTEI 0
Watchdogcwb

Watchdogcwb

05/11/2006

begin if radiogroup1.ItemIndex=0 then begin dir := ´/teste1/´; dir2 := ´/teste1/´; dir3 := ´/teste3/´; end; end;


Muito Obrigado!!! funcionou!!!

mas agora eu tenho outro problema, estou tentando pegar uma listagem de arquivos do meu diretorio e jogar dentro do FTP mas não estou conseguindo e não retorna nenhuma mensagem de erro, abaixo segue o codigo

Lijst := TStringList.Create;
try
if FindFirst(´C:\teste\´ + data, faAnyFile, SearchRec) = 0 then
begin
Lijst.Add(SearchRec.Name);
while FindNext(Searchrec) = 0 do
Lijst.Add(SearchRec.name);
end;
for Index := 0 to pred(Lijst.Count) do
idFTP2.Put(Lijst[Index], ´/work/lixo/´ + Lijst[Index], true);
finally
Lijst.Free;
FindClose(SearchRec);
end;

aguém pode me dar uma mão?



Obrigado
WatchDogCWB


GOSTEI 0
Watchdogcwb

Watchdogcwb

05/11/2006

begin if radiogroup1.ItemIndex=0 then begin dir := ´/teste1/´; dir2 := ´/teste1/´; dir3 := ´/teste3/´; end; end;


Muito Obrigado!!! funcionou!!!


GOSTEI 0
Watchdogcwb

Watchdogcwb

05/11/2006

Muito Obrigado!!!!


Funcionou!!!


GOSTEI 0
POSTAR