Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Wie schreibe ich eine Funktion?

    Delphi
    by psd-sign, 22. Nov 2008
  Oh ...sehe gerade, es wurde nochmal geantwortet, während ich meine Eigenlösung getippt hatte ...
  
  Wie immer:
  Dankeschön an euch!! :)
• Forum: Object-Pascal / Delphi-Language

  Re: Wie schreibe ich eine Funktion?

    Delphi
    by psd-sign, 22. Nov 2008
  So funktioniert es ... 2 Zigaretten und nen Kaffee später :D
  
  
  procedure TForm1.SHAPEClick(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  begin
  if Sender is TShape then
  begin
  if TShape(Sender).Brush.Color = Clmaroon then
  begin
• Forum: Object-Pascal / Delphi-Language

  Re: Wie schreibe ich eine Funktion?

    Delphi
    by psd-sign, 22. Nov 2008
  Nun ist die Verwirrung perfekt ... ich möchte, dass je nach Steuerlementnamen des TShapes nun die Coloreigenschaften geändert werden. Der Compiler leuchtet wie ein Weihnachtsbaum ... hat jemand ne Idee?
  
  
  procedure TForm1.SHAPEClick(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  
  var
  TheShape: TComponentname;
  
  begin
• Forum: Object-Pascal / Delphi-Language

  Re: Wie schreibe ich eine Funktion?

    Delphi
    by psd-sign, 22. Nov 2008
  Ach ja:
  Sollte es ein gutes Tutorial geben, in dem Erstellung von Funktionen und ähnlich Themen gut erklärt werden, freue ich mich über einen Link :-D
• Forum: Object-Pascal / Delphi-Language

  Wie schreibe ich eine Funktion?

    Delphi
    by psd-sign, 22. Nov 2008
  Ich bn ein Delphi Anfänger und habe eine generelle Frage:
  
  Wie schreibe ich eine Funktion in Delphi (Delphi7)? Und wie rufe ich sie wieder auf?
  
  Aktuelles Beispiel:
  Ich programmiere z.Z. ein Fomular, dass nach verschiedenen Algorythmen eine Zahl von Binär in Dezimalwert umrechnet und umgekehrt. Gleichzeitig habe ich 8 TShapes eingefügt, die einen 8 Bit-Controller simulieren sollen. Ich...