Problemas al usar case

[[David]]

Tengo un case así y me da error , en el >0 y <0 obviamente , como hago para los valores mayores y menores de 0 .

Cómo tendria que hacer este código

Código Delphi [-]
var 
i : integer ;
valor : string;

case i of
0 : valor := ' lo que sea ';
>0 : valor := ' xxx' ;
<0 : valor := 'lo que sea también';
end;

[HenryAraniva]

hasta donde entendí, para lo que quieres hacer sería mejor utilizar un if así:

if i = 0 then
valor := 'blablabla'
else
if i >0 then
valor := 'otra cosa'
else
valor:='xxxxx'

[ilichhernandez]

Al case no se le pueden dar valores de mayor que o menor que, deben ser
tiop numericos, de texto o boolean.... al menos esos salen en los manuales que he revisado....

Case var of

true : blabla

false : blabla

o puede ser

1: blabla
2:blabla


o tambien

uno : blabla
dos:blabla

en todo caso coincido con el compañero que respondio antes , el if es el indicado para este caso.

[[Héctor Randolph]]

La sentencia case también acepta rangos.

Prueba de esta forma:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  I:Integer;
begin
  I:=1000;
  case I of
   0: ShowMessage('Cero');
   1..High(Integer): ShowMessage('Mayor a cero');
   else ShowMessage('Menor a cero');
  end;
end;

Saludos

[epuigdef]

Muy elegante tu solución, Héctor!

Edu

[ilichhernandez]

Que interesante... jamas habia visto esa forma de case......