Fórum Combobox #348328
01/11/2007
0
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?
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
Curtir tópico
+ 0
Responder
Posts
01/11/2007
Mahdak
http://forum.devmedia.com.br/viewtopic.php?t=68406&highlight=
Responder
Gostei + 0
01/11/2007
Fabiano Góes
uma idéia:
usar assim: ShowMessage(CopiaAteChar(ComboBox.Text, ´/´));
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, ´/´));
Responder
Gostei + 0
01/11/2007
George_piaulino
[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??
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
Responder
Gostei + 0