Delphi kann so einfach sein
Delphi kann so einfach sein



Delphi kann so einfach sein

  Startseite
    Profi
    Basisprofi
    Basics
  Über...
  Archiv
  Gästebuch
  Kontakt
 

  Abonnieren
 



  Letztes Feedback



http://myblog.de/delphi-starthilfe

Gratis bloggen bei
myblog.de





Fragen die ich beantworten werde

Hilfe, mein Quellcode wird falsch angezeigt!

Warum stimmt die Imagekomponente nicht?

Fehlermeldung: "zugewiesener Wert wird niemals benutzt"

Variable nicht vergeben!

 

Diese und weitere Probleme werde ich in diesem Blog behandeln. 

17.5.15 19:28


Dreieck aus Kreisen

 

procedure TForm1.FormActivate(Sender: TObject);
   var Anfang, Ende, J,x,y,I :Integer;

begin

Anfang:= 0;
Ende:= 5;

   For J:= 1 to 10 do
    begin

    y:= (Form1.ClientHeight-50)-J*86;


     For I:= 1 to Ende do
       begin
       
        x:= I*100;
        Canvas.ellipse(x+Anfang,y,x+100+Anfang,y+100);
        Sleep(200)

       end;

    Anfang:= Anfang+50;
    Ende:= Ende-1;

    end;


 end;

end.

 

 

 

 

 

 

28.11.12 06:21


Einfache Befehle

Farbe in E_: E_A.Text:="Hi"

Farbe in E_: E_A-Color:=clgreen

Schließen: Form1.Close;

Info: ShowMessage ('hello')

Text in E_ ablesen: rInfo:= StrToFloat (E_Info.Text)

Wert in E_ einsetzen: E_Kurs.Text:= FloatToStr (rInfo) 

 

14.8.12 15:13


Imagekomponenten erscheinen lassen

 

 

 procedure TForm1.FormPaint(Sender: TObject);
begin


canvas.Pen.Color:= clgreen;
canvas.brush.color:= clyellow;
canvas.Rectangle(100,300,400,100);

Canvas.Pen.Color:= clRed;
canvas.Brush.color:= clblue;
Canvas.Ellipse(100,300,400,100);

canvas.Brush.Style:= bsclear;
Canvas.TextOut(20,90, 'Hallo');


end;

end.

 

 

 

 

26.10.12 19:07


Größerwerdender Kreis

 

  

 

 procedure TForm1.FormPaint(Sender: TObject);

var rKreis :integer;

begin

  rKreis:=1;
while rKreis <=200 do
begin

 canvas.Brush.Style:= bsclear;
 canvas.MoveTo(400,400);
 canvas.Ellipse (400+rKreis,400+rKreis,400-rKreis,400-rKreis);
 rKreis:=rKreis+2;
 sleep (30);

 end;
 end;


end.

 

 

 

 

21.9.12 08:03


Quadrate auf Imagekomponente

 

 

 

procedure TForm1.B_ZeichnenClick(Sender: TObject);
var x1, y1 , x2 , y2 :integer;
begin

with form1.image1.canvas do

  begin
    x1:=Random(Width);
    x2:=Random(Width);
    y1:=Random(Height);
    y2:=Random(Height);
    Canvas.Pen.Color :=Farbe;
    Canvas.Brush.Color:=Farbe;
    Canvas.Pen.Mode :=Art;
    Canvas.Rectangle(x1,y1,x2,y2)
  end;

end;

procedure TForm1.B_EndeClick(Sender: TObject);
  begin
    close;
  end;

procedure TForm1.R_weissClick(Sender: TObject);
  begin
   Farbe:=clWhite;
  end;

procedure TForm1.R_pinkClick(Sender: TObject);
  begin
    Farbe:=clfuchsia;
  end;

procedure TForm1.R_schwarzClick(Sender: TObject);
  begin
    Farbe:=clBlack ;
  end;

procedure TForm1.R_gruenClick(Sender: TObject);
  begin
    Farbe:=clGreen;
  end;

procedure TForm1.R_PurpleClick(Sender: TObject);
  begin
    Farbe:=clpurple;
  end;

procedure TForm1.B_LeerClick(Sender: TObject);
  begin
    if B_Leer.Caption='leer' then
      begin
        Hg:=bsSolid;
        B_Leer.caption:='gefüllt';
      end
    else begin
      Hg:=bsClear;
      B_Leer.caption:='leer';
      end
  end;

procedure TForm1.B_NormalClick(Sender: TObject);
  begin
    if B_Normal.Caption='normal'
  then
  begin
    Art:=pmNotCopy;
    B_Normal.caption:='komplementär';
  end

  else
    begin
      art:=pmCopy;
      B_Normal.caption:='normal';
    end;


end;



procedure TForm1.B_LoeschenClick(Sender: TObject);
  begin
    with Form1.Image1 do
    begin
     picture:=nil;
     end;
  end; 

 

 

 

 

17.10.12 13:56


Ratespiel

Das Spiel mit dem PC

 


 

 var rRandom, rVersuche:real;

procedure TForm1.B_NeuesSpielClick(Sender: TObject);
begin

rVersuche:=0;
randomize;
rRandom:=random(100)+1;
E_Versuche.Text:=' ';
E_Antwort.Text:=' ';
E_Tipp.Text:=' ';

end;

procedure TForm1.B_AntworteClick(Sender: TObject);
var rTipp:real;
begin

rVersuche:=rVersuche+1;
E_Versuche.Text:=FloatToStr(rVersuche);
rTipp:=StrToFloat(E_Tipp.Text);

IF rTipp=rRandom THEN
  begin
    E_Antwort.Text:='Treffer - Juhu';
    Form1.color:=clGreen;
  end
ELSE
  begin
    IF rTipp      begin
        E_Antwort.Text:='Ich bin größer';
        Form1.color:=clRed;
      end
    ELSE
      begin
        E_Antwort.Text:='Ich bin kleiner';
        Form1.Color:=clRed;
      end;
  end;

end;

end. 

 

 

 

 

7.10.12 22:53


Lösen einer quadratischen Gleichung

Quellcode zum Lösen einer Gleichung:



 


 

 procedure TForm1.B_losClick(Sender: TObject);

var ra, rb ,rc, rx, rx1, rx2 ,rD :real;

begin

ra:=StrtoFloat(E_a.Text);
rb:=StrToFloat(E_b.Text);
rc:=StrToFloat(E_c.Text);
rD:= (rb)*(rb) - 4*(ra)*(rc);


If ra=0 Then

  If rb=0 Then

    If rc=0 Then
    begin
      E_Menge.Text:= ('Alle reellen Zahlen sind Lösungen');
      E_Menge2.Text:= ('-');
    end

    Else
      begin
      E_Menge.Text:= ('Keine Lösung');
      E_Menge2.Text:= ('-');
      end

  Else
  begin
    rx:= -rc/rb;
    E_Menge.text:= FloatToStr (rx);
    E_Menge2.Text:= ('-');
    end

   
Else
  If rD>0 Then
  begin
  rx1:= (-rb - sqrt (rD) )/(2*ra);
  rx2:= (-rb + sqrt (rD) )/ (2*ra);
  E_Menge.Text:= FloatToStr (rx1);
  E_Menge2.Text:= FloatToStr (rx2);
  end

  Else
   
      if rD=0 Then
      begin
      rx:= -rb/ (2* ra);
      E_Menge.text:= FloatToStr (rx);
      E_Menge2.Text:= ('-');
      end

    Else
      begin
       E_Menge.text:= ('Keine Lösung');
       E_Menge2.Text:= ('-');
      end;


end;

end.

 

  

 

30.9.12 18:47


IF THEN ELSE

Um Bedingungen zu stellen:

 

IF rZahl>10 THEN ...
ELSE ... 

 

wenn eine Bedingung wahr ist, so wird sie ausgeführt, sonst tritt ELSE in Kraft. Vor Else darf kein Semikolon stehen. 

13.8.12 17:38


Funktionen aus Feldern

Um Informationen aus Textfeldern zu übertragen oder zu entnehmen werden folgende Befehle benutzt:

 

StrToInt: Schrift zu Zahl --> iZahl:= StrToInt ('10')

IntToStr: Zahl zu Schrift in Textfeld  --> iSchrift:= IntToStr (10)

 

gleiches gilt für real-Zahlen:

StrToFloat: Schrift zu Zahl --> rZahl:= StrToFloat ('10.3')
FloatToStr: Zahl zu Schrift 

 

13.8.12 14:12


Operatoren

Zum Rechnen gibt es verschiedene Befehle bei denen die vorher eingeführten Zahlenkategorieren benötigt werden 

 

+: Addition, Ausgabe in allen Zahlen

-: Subtraktion, Integer, real

/: Division, real 

div: Division, integer

mod: Division, Rest als Integerzahl 

*: Multiplikation: Integer, Real 

 

12.8.12 10:31


Kategorien

Hinter den Variablen schreibt man in der Regel noch einen Befehl, dass Delphi weiß, aus welcher Kategorie Zahl es diese Variablen nehmen darf. Hier die gängigsten:

 

word: natürliche Zahl bis 65535

Byte: natürliche Zahl bis 255

char: einzelnes Zeichen

string: zeichenkette

integer: Zahl zwichen - und +32768

real: Kommazahlen miteingeschlossen bis zu zwölf Stellen genau 

10.8.12 18:28





Verantwortlich für die Inhalte ist der Autor. Dein kostenloses Blog bei myblog.de! Datenschutzerklärung
Werbung