[Turbo Pascal] Jak uruchomić program w Delphi.

Main Page -> Forum Index -> Programming Generally -> [Turbo Pascal] Jak uruchomić program w Delphi.

Author

Message

ja1
Poziom 13

Joined: 05 Jun 2003
Posts: 122

01 Jun 2004 17:31

[Turbo Pascal] Jak uruchomić program w Delphi.

Witam
Jak przenieśc ten program z Pascala aby działał w Delphi.
Procedure xxx
var x : integer;
begin
x:=1;
repeat
x:=x + 1;
Write(x);
delay(200);
until x>100
end;
(chodzi oto aby na ekranie były wyswietlane liczby od 1 do 100, np. na label lub w innym oknie);
Czesc

Zamykam. - arnoldziq

Google

Google Adsense

01 Jun 2004 17:31

scotch
Poziom 18

Joined: 07 Jul 2003
Posts: 506

#2 01 Jun 2004 22:24

Re: Z Pascala do Delphi

Delphi to pascal . Praktycznie wszystkie programy napisane w paskalu są kompilowane i uruchamiane w Delphi . Różnica istnieje w pewnych typach .Np. w pascalu typ ineger był 16 bajtowy natomiast w delphi od wersji 2 jest 32 bajtowy .Tak samo w pascalu real był 6 bjtowy ( odpowiada to w delphi real48) natomiast w delphi jest traktowany jako double . Tak samo różnice są w sposobie wprowadzania i wyprowadzania danych po prostu okienka . To co w pacsalu było prostym write ,gdzie mamy tylko ekran dos tutaj wygląda troszkę inaczej . Np wypisanie danego tekstu może wyglądać tak Form1.StaticText1.Caption:=x; gdzie x:string czyli np. Form1.StaticText1.Caption:=IntToStr(x) gdzie tym razem x:=integer .Wzięło się to z Oject Pascal . Poza tym wszystkie for ,if itp. dziłają tak samo . Mała uwaga co do delay(200) . W związku z tym ,że windows jest wielozadaniowy te 200 ms nie zawsze są 200ms ,zależy to od obciążenia systemu .Pozdrav

Google

Google Adsense

# 01 Jun 2004 22:24

ja1
Poziom 13

Joined: 05 Jun 2003
Posts: 122

01 Jun 2004 22:48

Re: Z Pascala do Delphi

A zamiast delaj można sleep(200).
Mnie chodzi o wyświetlenie za każdą petlą w label wyniku X.
I wiem że trzeba zamienic liczbę na łancuch.

Np;
repeat
sleep(200);
Label1.Caption:=FloatToStr(Z)
Label1.Caption:=IntToStr(Z)
until

Google

Google Adsense

01 Jun 2004 22:48

scotch
Poziom 18

Joined: 07 Jul 2003
Posts: 506

#4 01 Jun 2004 23:19

Re: Z Pascala do Delphi

Nie wiem po co tobie te delay. Przecież mówisz w tym miejscu programowi zatrzymaj się na 200ms . W tym czasie program nie robi NIC . Natomiast dodawanie wyniku np. do komponentu Memo brzmi Memo1.Lines.Add := IntToStr (x) a o resztę marwi się program. Czyli można by napisać następująco:

Procedure xxx
var x : integer;
begin
Memo1.Lines.Clear; // czyścimy pole ze śmieci
x:=0; // skoro chcemy od 1
repeat
x:=x + 1;
Memo1.Lines.Add := IntToStr (x); // wyświetlenie cyfy
until x=>100 // skoro do 100
end;

lub tak

Procedure x;
var x : integer;
begin
Memo1.Lines.Clear;
for x:=1 to 100 do Memo1.Lines.Add := IntToStr (x);
end;

Robi to samo choć wygląda trochę inaczej.W tym rzypadku nie zerujemy
x poniewarz załatwia to nam for .

ja1
Poziom 13

Joined: 05 Jun 2003
Posts: 122

01 Jun 2004 23:24

Re: Z Pascala do Delphi

Wielkie dzięki.
Teraz wszystko gra.

Main Page -> Forum Index -> Programming Generally -> [Turbo Pascal] Jak uruchomić program w Delphi.

Page 1 of 1

Page generation time: 0.103 seconds

FAQ || Administrator || Moderators || Widgets and banners || Contact