Campo Memo
Num campo memo eu tenho PATH=C:\MEUPROGRAMA\CAMPOS\PATH
Gostaria de pegar o conteudo aparti do PATH= q seria C:\MEUPROGRAMA\CAMPOS\PATH e salva em uma string pra uso posterior em outra funcao! Alguem tem alguma ideia ? eu tenho uma funcao aki, porem ela so copia ate a PRIMEIRA BARRA \ ou seja C:\
vlwww
Gostaria de pegar o conteudo aparti do PATH= q seria C:\MEUPROGRAMA\CAMPOS\PATH e salva em uma string pra uso posterior em outra funcao! Alguem tem alguma ideia ? eu tenho uma funcao aki, porem ela so copia ate a PRIMEIRA BARRA \ ou seja C:\
vlwww
Bertu
Curtidas 0
Respostas
Ferreia2
21/05/2008
Faz um While nesta string, qquando encontrar o sina de = vc comeca a concatenar a p~´oxima até acabar a String
GOSTEI 0
Beckert
21/05/2008
Num campo memo eu tenho PATH=C:\MEUPROGRAMA\CAMPOS\PATH
Gostaria de pegar o conteudo aparti do PATH= q seria C:\MEUPROGRAMA\CAMPOS\PATH e salva em uma string pra uso posterior em outra funcao! Alguem tem alguma ideia ? eu tenho uma funcao aki, porem ela so copia ate a PRIMEIRA BARRA \ ou seja C:\
vlwww
=============
adapte o exemplo abaixo a sua necessidade
procedure TForm1.Button1Click(Sender: TObject);
Var Diretorio:String;
begin
Diretorio:= Memo1.lines[0];
Delete(Diretorio,1,Pos(´=´,Diretorio));
Edit1.text := Diretorio;
end;
GOSTEI 0
Brunodsr
21/05/2008
Sugiro que ao invés de um memo, vc use um treeview. Tem esse exemplo no proprio delphi. Pasta sample.
Espero ter ajudado
Espero ter ajudado
GOSTEI 0
Bertu
21/05/2008
hmm vlw D+ a funcao funcionou, porem o Memo possui quebra de linha, entao ele pega apenas a primeira linha o memo geralmente fica com 3 linhas ou 4 ! Tem como corrigir alguma coisa ?
GOSTEI 0
Bertu
21/05/2008
Consegui... apenas troquei essa linha
por essa aki
Vlww
Diretorio:= Memo3.Lines[0];
por essa aki
Diretorio:= Memo3.Lines.Text;
Vlww
GOSTEI 0