Gabriel Herdt wrote:
Jorge, obrigado pela ajuda. Mas esse não eu o caso eu me refiro ao
comando CASE OF do delphi(2005) não ao CASE WHEN de Select.
Oque eu gostaria de fazer é o seguinte:
case trim(UpperCase(sNome)) of 'Gabriel':
Begin
…
…
End;
`Gustavo': Begin
…
End;
Quanto a
A sentença CASE só pode ser usada com tipos de dados ordinais (integer,
char, byte, boolean) e tipos enumerados. Se quiser usar com string, sugiro
fazer uso da função AnsiIndexStr().
Exemplo:
procedure TForm1.Button1Click(Sender: TObject);
var
lBusca: String;
lStrings: array of String;
Minha solução ainda é melhor, pq já usa uma função pronta pra isso, que o
próprio Object Pascal já te fornece. Sds.
From: Mario Hardt [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Re: O Comando Case
Date: Tue, 13 Feb 2007 19:40:48
3 matches
Mail list logo