Hallo,
wer kann mir dabei helfen den folgenden Pascal Code in Delphi
zu implementieren. Hierbei handelt es sich um eine graphische
Beschriftung von Linien.
Code:
procedure Grafik_Tageslinien;
var Zaehler1 :integer;
text :string[6];
begin
Farbe1:=red; SetColor(Farbe1);
for Zaehler1:=1 to 13 do begin
case Zaehler1 of
1: begin Tag:= 5; text:=' 5.Jan';end;
2: begin Tag:= 35; text:=' 4.Feb';end;
3: begin Tag:= 65; text:=' 6.M"r';end;
4: begin Tag:= 95; text:=' 5.apr';end;
5: begin Tag:=125; text:=' 5.Mai';end;
6: begin Tag:=155; text:=' 4.Jun';end;
7: begin Tag:=172; text:='21.Jun';end;
8: begin Tag:=202; text:='21.Jul';end;
9: begin Tag:=232; text:='20.Aug';end;
10:begin Tag:=262; text:='19.Sep';end;
11:begin Tag:=292; text:='19.Okt';end;
12:begin Tag:=322; text:='18.Nov';end;
13:begin Tag:=351; text:='21.Dez';end; end;
if Tag > 181 Then begin Farbe1:=green; SetColor(Farbe1);end;
Sonnenstand(Tag);
AU_der_Sonne(Tag);
ZZ:=ZZA;
repeat
Sonnenhoeheazi(Tag,ZZ);
if HoWi < 0 then HoWi:=0;
Radius(HoWi,FlAz);
putpixel(Bmittex+x1,Bmittey+y1,farbe1);
ZZ:=ZZ+0.02;
until ZZ >=ZZU;
end;
end;
Danke schon eimal im voraus
Gruß
Thorsten