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

rastafarey · #4 15-09-2005

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.