Free Pascal - Úvod - Diskusia

Meno: Sulo
Dátum: 12.2.2010, 13:05
Predmet: Re: Nekonecny rad

Limity typu 64 alebo 640 kB sa vyskytujú v Turbo Pascale pod DOSom. Vo Free Pascale už nie.

---

Meno: wwlado
Dátum: 11.2.2010, 22:02
Predmet: Nekonecny rad

Potreboval by som si vyrobit zoznam ludi, ktory bude dlhsi ako 65xxx a ako urobit to Array, je hlupost.
Takze som zvolil taktyku Dynamickej premennej. No niekde som sa docital, ze dynamicka premenna ma max. priestor iba 64Kb.  Chcel by som sa opytat, ci iba Smerniky (napr. Pchar) su tak obmedzene, alebo aj Objekty (napr. TForm).
Alebo akym sposobom by sa dal vytvorit taky dlhy rad napr. uzivatelov, aby som bol obmedzeny naozaj iba Ramkou..

---

Meno: Sulo
Dátum: 10.12.2009, 18:23
Predmet: Re: kniznica crt.pas

Myslím, že CRT sa ako samostatná knižnica nedodáva, je súčasťou súboru TURBO.TPL a je teda automaticky dostupná na zahrnutie (uses) a používanie.

---

Meno: stano
Dátum: 10.12.2009, 14:08
Predmet: kniznica crt.pas

Nazdar, kto poradi kde stiahnut kniznicu crt.pas pre turbo pascal 7?

---

Meno: Sulo
Dátum: 18.9.2009, 20:08
Predmet: Re: Nejde Outtext

Predpokladám, že program nejde vôbec skompilovať, keďže je v ňom syntaktická chyba na riadku, ktorý obsahuje text:
graphresult! }
Alebo je tento text len zle skopírovaný na toto fórum? Dá sa program skompilovať alebo sa chyba vyskytuje až počas behu?

---

Meno: Jerry
Dátum: 17.9.2009, 16:50
Predmet: Nejde Outtext ??

Dobrý den,
nejde mi zobrazovat text v grafice
funkcí OutText. Nevíte náhodou kde je problém ???


Program inigraph1;
uses crt,graph;
const
  TheLine = 'We are now in 640 x 480 x 256 colors!'+
            ' (press <Return> to continue)';

var
  gd, gm, lo, hi, error,tw,th: integer;
  found: boolean;
  MyTInfo:TextSettingsType;

begin
  gd := D8bit;
  gm := m640x480;
  initgraph(gd,gm,'');
graphresult! }
  error := graphResult;
  if (error <> grOk) Then
    begin
    writeln('640x480x256 is not supported!');
    halt(1)
    end;

  setColor(15);
  moveto(20,20);
  outtext('We are now in 640 x 480 x 256 colors!');

  setColor(14);

  setbkcolor(233);
  rectangle(0,0,getmaxx,getmaxy);

  settextstyle(3,HorizDir,15);

  outtextxy(100,100,'We are now in 640 x 480 x 256 colors!');

  gotoxy(10,10);

  gettextsettings(MyTInfo);
  writeln(MyTInfo.font);
  writeln(MyTInfo.direction);
  writeln(MyTInfo.charsize);
  writeln(MyTInfo.horiz);
  writeln(MyTInfo.vert);


  setTextStyle(defaultFont,horizDir,1);

  tw:=TextWidth(TheLine);
  th:=TextHeight(TheLine);

  outTextXY((getMaxX - TW) div 2,
             (getMaxY - TH) div 2,TheLine);
  setColor(white);
  outText(TheLine);

  writeln(TheLine);

  readln;

  closegraph;

end.

---

Meno: pato1
Dátum: 22.4.2009, 18:59
Predmet: re

ved len cielovy procesor...uz som to skusal mnoho krat. fakt to stve.

---

Meno: Sulo
Dátum: 22.4.2009, 13:03
Predmet: Re: ?

Neviem, skús vytvoriť nový program a skompilovať ho. A aké nastavenia si menil?

---

Meno: pato1
Dátum: 21.4.2009, 17:36
Predmet: ?

tak co vies co s tym ?

---

Meno: pato1
Dátum: 18.4.2009, 9:06
Predmet: RE:RE:RE:

problem je, že VŽDY vypíše toto:
assm.pas(7,7) Error: Unknown identifier "AX"
assm.pas(7,9) Error: Invalid reference syntax
assm.pas(8,7) Error: Unknown identifier "AL"
assm.pas(11,4) Fatal: There were 3 errors compiling module, stopping
assm.pas(0) Fatal: Compilation aborted
a keď zmením nastavenia tak program skompiluje ale topadne to "...exitcode 216" prosím pomoc

---