CASE/OF... (y la madre del cordero)

[papulo]

Entonces, y esperando que sirva de precedente, ¡HE COMPRENDIDO LA AYUDA! UOOOOOOOOOO!!!!

No os imaginais lo feliz que me hace

Seguire implementado cosillas por aqui.

PD: Programar es incluso divertido...

[rastafarey]

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If Key = #13 Then Begin
    If CompareText(Edit1.Text, 'VAR') Then
       ShowMessage('VAR')
    Else If CompareText(Edit1.Text, 'INT') Then
       ShowMessage('INT')
    Else
       ShowMessage('Escribe mejor, chavalote')
  End;
end;

Ha y una cosa mas creo que eres una de las personas que he oido que sabe mas delphi por que en el intervalo que dices yo tengo como 0,2 de 100 o quisas menos y veras que uso delphi como hace 12 años y cada dia aprendo algo nuevo y en ese momento me entero que cada dia se menos o que no se nada.

[papulo]

No te equivoques Rastarey, estoy a -25, aun me faltan 125 para llegar al nivel maestro

Solo hace un mes y tres semanas que estoy con DELPHI. Asi que lo que estoy aprendiendo es todo.

[papulo]

Empezado por rastafarey

Código Delphi [-]
  procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
    If Key = #13 Then Begin
      If CompareText(Edit1.Text, 'VAR') = 0 Then
         ShowMessage('VAR')
      Else If CompareText(Edit1.Text, 'INT') = 0 Then
         ShowMessage('INT')
      Else
         ShowMessage('Escribe mejor, chavalote')
    End;
  end;

(...insertar aqui una percepcion erronea sobre mi nivel de DELPHI. Estoy muy PezQueñin todavia... ¡y lo que me queda!)

Solo matizar, que faltaba igualar los if a 0, para que tuvieran una condicion que cumplirse y asi poder ejecutar las instrucciones anidadas.

PD: Si utilizo mal algun termino, sientanse libres de corregirme que tomare buena nota.

[rastafarey]

Tienes razon.