[Resolvido] ComboBox

[DanielTM 0]

Fala pessoal estou com uma grande duvida, tenho um ComboBox e ele tem valores fixo e um codigo de cada valor fixo, esse ComboBox irei gravar em um arquivo text, tenho nele: prestação de serviço {01} mas preciso gravar somente o {01} no meu txt.como faço isso?

[marcio.theis 3]

Pode fazer uma função que lê este valor e pega somente quando começar de { até } algo como:

 

procedure TForm1.BitBtn2Click(Sender: TObject);	function Retorno(str: string): string;	var		x: integer;		ret: string;	begin	ret:='';	for x:=Length(str) downto 1 do		begin		if str[x] <> '{' then			ret:=str[x] + ret		else			begin			ret:='{' + ret;			Break;			end;		end;	Retorno:=ret;	end;beginShowMessage(Retorno(ComboBox1.Text));end;

[DanielTM 0]

valew marcio, era isso mesmo que estava pensando, mas coloqueo o {} para identificar o codigo que eu queria buscar dentro do combobox, separando ele para gravar, no caso so quero gravar o conteudo do {}, mas nao a propria chaves {, gravar comente os numeros que estao dentro dela...

[marcio.theis 3]

Bom, você precisa somente mexer na função, algo simples, podia você mesmo fazer, fica assim:

 

procedure TForm1.BitBtn2Click(Sender: TObject);	function Retorno(str: string): string;	var		x: integer;		ret: string;	begin	ret:='';	for x:=Length(str) downto 1 do		begin		if ((str[x] <> '{') and (str[x] <> '}')) then			ret:=str[x] + ret;		if str[x] = '{' then			Break;		end;	Retorno:=ret;	end;beginShowMessage(Retorno(ComboBox1.Text));end;

[DanielTM 0]

valew marcio, mto obrigado pela ajuda, era isso mesmo que estava pretendendo fazer mas como estou iniciando em delphi muitas vezes fico perdido, valew demais pela força..

[marcio.theis 3]

tranqüilo, sem problemas :D... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif