Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: case of

    Delphi
    by alcaeus, 11. Dez 2004
  Hi inst666,
  
  der Abschnitt lautet zwar wirklich so
  case MyColor of
  Red: X := 1;
  Green: X := 2;
  Blue: X := 3;
  Yellow, Orange, Black: X := 0;
  end;
  aber wie du siehst, kann es sich nicht um einen String handeln, da die ' fehlen.
• Forum: Sonstige Fragen zu Delphi

  Re: case of

    Delphi
    by alcaeus, 11. Dez 2004
  Nein, das geht nicht.
  String ist nicht ein ordinaler Typ. Du musst also bei Stringabfragen immer mit if arbeiten:
  if Farbe = 'Rot' then
  Color := clRed
  else if Farbe = 'Gelb' then
  Color := clYellow
  else if ...
  
  Greetz
  alcaeus
• Forum: Sonstige Fragen zu Delphi

  Re: case of

    Delphi
    by alcaeus, 11. Dez 2004
  Hi malo,
  
  
  das ist mir auch klar :roll:
  Mir ging es darum, seinen Code ohne groessere Aenderungen zum Laufen zu bringen ;)
  
  Greetz
  alcaeus
• Forum: Sonstige Fragen zu Delphi

  Re: case of

    Delphi
    by alcaeus, 11. Dez 2004
  Hallo inst666,
  
  erstens musst du nicht jedes Mal die Komplette Unit posten, die relevante Prozedur/Funktion reicht eigentlich aus.
  Nun zu deinem ersten Code:
  procedure TZeichen.Button1Click(Sender: TObject);
  var zeichen, fehler :integer;
  ok :boolean;
  begin
  val ( ein.text, zeichen, fehler ) ;
  ok := (fehler=0) ;