Combobox

Delphi

01/11/2007

Tenho um combobox desse jeito: Teste / Teste2 / Teste3
Eu imaginei em usar o comando copy para copiar a frase ate a primeira barra, mas nao daria certo, pois eu nao sei o tamanho da frase que o cliente ira digitar. :?
Alguem aew tem alguma ideia de como fazer isso, copiar a frase ate a primeira barra independente do tamanho da frase??

Uma outra duvida, alguem tem um tutorial de como instalar o InfoPower4000 para delphi 7?


Stu

Stu

Curtidas 0

Respostas

Mahdak

Mahdak

01/11/2007

http://forum.devmedia.com.br/viewtopic.php?t=68406&highlight=


GOSTEI 0
Fabiano Góes

Fabiano Góes

01/11/2007

uma idéia:

function CopiaAteChar(const AValue: string; AChar: Char): string;
var
   iPos: integer;
begin
   iPos := 0;

   while iPos < Length(AValue) do
   begin
      Inc(iPos);

      if MidStr(AValue, iPos, 1) = AChar then
         break;
   end;

   Result := LeftStr(AValue, iPos);
end;


usar assim: ShowMessage(CopiaAteChar(ComboBox.Text, ´/´));


GOSTEI 0
George_piaulino

George_piaulino

01/11/2007

[quote=´Stu´]Tenho um combobox desse jeito: Teste / Teste2 / Teste3
Eu imaginei em usar o comando copy para copiar a frase ate a primeira barra, mas nao daria certo, pois eu nao sei o tamanho da frase que o cliente ira digitar. :?
Alguem aew tem alguma ideia de como fazer isso, copiar a frase ate a primeira barra independente do tamanho da frase??



copy(ComboBox1.text,1,pos(´/´,ComboBox1.text)-1);


[quote=´Stu´]Uma outra duvida, alguem tem um tutorial de como instalar o InfoPower4000 para delphi 7?


http://www.angelo.com.br/forum3.php?topico=9&msg=1619


GOSTEI 0
POSTAR