Z delphi wybierz FILE | NEW i Console Application
dla DOS bylo Uses Crt;
dla delphi jest Uses WinCrt;
//---przykladowy program
program czesc;
{$APPTYPE CONSOLE}
uses SysUtils, WinCrt;
Writeln('czesc');
Writeln(2*6);
end.
//-koniec przykladu
GRAFIKA
Oto kod w pascalu:
Uses Graph, Crt;
Var Karta,Tryb : integer;
Var I:Integer;
BEGIN
Karta:= DETECT;
InitGraph(karta,tryb,'');
MoveTo(10,10);
LineTo(200,10);
LineTo(10,100);
LineTo(10,10);
For I:=1 to 20 Do
Begin
Moveto( 100,100);
LineTo(Random(100)+1,Random(100)+1);
End;
readLN;
CloseGraph
END.
wykonaj sobie ten programik;
teraz ten sam program w DELPHI ale nie jako Connsole application
Na formie glownej w zkladce EVENTS na ONPaint wpisujemy
procedure TForm1.FormPaint(Sender: TObject);
Var I :integer;
begin
Form1.canvas.MoveTo(10,10);
Form1.canvas.LineTo(200,10);
Form1.canvas.LineTo(10,100);
Form1.canvas.LineTo(10,10);
For I:=1 to 20 Do
begin
Form1.canvas.MoveTo(100,100);
Form1.canvas.LineTo(random(100)+1,Random(100)+1);
End;
end;
mimo wszytsko zgadzam sie z Dryobates zeby nie przepisywac kodow nie ma sensu