Mostrar valor diferente no ComboBox

[Bruno Cunha 0]

Olá pessoal, estou desenvolvendo um sistema e preciso que o Comobobox

mostre um valor mas adicione outro em uma variável, de acordo com o index selecionado.

 

Ex: Mosta 00:00 = Salva 0000

Mosta 19:00 = Salva 1900

Mosta 20:00 = Salva 2000

 

 

É possível? se possível como faço?

 

Obrigado

[bdexterholland 0]

se o padrão é este e a variável é do tipo string, então:

 

Function FormataValor(Valor: String) : String;
var
 i   : integer;
 Aux : String;
begin
 Aux := EmptyStr;
 For I := 1 To Length(Valor) - 1 do
   if (Valor[i] in ['0'..'9'] then
     Aux := Aux + Valor[i];
 Result := Aux;
end;

 

passe o ComboBox.Text como parâmetro. O código pode ser chamado no evento OnSelect do ComboBox.

[Bruno Cunha 0]

se o padrão é este e a variável é do tipo string, então:

 

Function FormataValor(Valor: String) : String;
var
 i   : integer;
 Aux : String;
begin
 Aux := EmptyStr;
 For I := 1 To Length(Valor) - 1 do
   if (Valor[i] in ['0'..'9'] then
     Aux := Aux + Valor[i];
 Result := Aux;
end;

 

passe o ComboBox.Text como parâmetro. O código pode ser chamado no evento OnSelect do ComboBox.

 

O Problema é que preciso armazenar em uma variável integer.

[bdexterholland 0]

mole, porém, a variável sendo do tipo integer pode causar problemas de parsing...

Function FormataValor(Valor: String) : Integer;
var
 i   : integer;
 Aux : String;
begin
 Aux := EmptyStr;
 For I := 1 To Length(Valor) - 1 do
   if (Valor[i] in ['0'..'9'] then
     Aux := Aux + Valor[i];
 Result := StrToInt(Aux);
end;