Free Pascal - Práca so súbormi - Diskusia

Meno: stalker
Dátum: 25.6.2008, 7:25
Predmet: re: re

super! funguje to! neviem kde bola chyba, prepisal som cely zdrojovy kod a je to v poriadku. mala skuska, a vidim ze ked zapisem 50 znakov, tak ma da do dalsieho riadku. ale po zapisani niekolkych riadkov mi uz nechce nic pisat dalej, asi readln bode len na urcity pocet znakov? nie je nejaka ina procedura ako readln, ale aby sa do nej mohlo zapisat viac znakov?

---

Meno: Sulo
Dátum: 24.6.2008, 21:00
Predmet: Re: window

Skontroluj si syntax, hlavne bodkociarky a konce blokov. A GoToXY bude fungovat, ale suradnice budu relativne k oknu. V tomto pripade je to vsak jedno.
A este oprava: lavy horny roh by mal byt 1, 1.

---

Meno: stalker
Dátum: 24.6.2008, 17:30
Predmet: re: re

{dik za taku skoru odpoved}take nieco by sa mohlo hodit lebo som si vsimol ze ked mam akurat zapnutu alebo ako to mam povedat proceduru readln tak ked kurzor pride na koniec obrazovky, tak ma automaticky hodi do dalsieho riadku. ale ked zapisem takto asi styri riadky tak potom dalej uz nechce nic napisat ako keby tam bol obmedzeny pocet znakov. a co sa tyka toho window, tak ked som napisal
Window(0,0,20,20);
tak pri kompilacii mi vyhodilo chybu ze vraj mam zlu syntax: syntax error, "." expected but ")" found. asi som nieco zle spravil? a este ked spravim to okno window, tak ako mam donho presunut kurzor tak, aby som tam mohol pisat? alebo staci len klasicke gotoxy?

---

Meno: Sulo
Dátum: 24.6.2008, 14:39
Predmet: Re: viacriadkovy readln

Nefunguje to, lebo Readln zablokuje vykonavanie programu az kym uzivatel nestlaci Enter. Mozne riesenie je nastavit textove okno, ktore vymedzi vyuzitie obrazovky len na urcitu cast. Sluzi na to procedura Window z jednotky CRT.

Window(x1, y1, x2, y2);

x1, y1 - suradnice laveho horneho rohu
x2, y2 - suradnice praveho dolneho rohu

Suradnice udavaju pocet znakov, nie pixlov. Cela obrazovka ma zvycajne 80x25 znakov.

Priklad:
Window(0, 0, 50, 25);

---

Meno: stalker
Dátum: 24.6.2008, 14:07
Predmet: viacriadkovy readln

Uz som to spravil funguje mi to ale mam iny problem. Spravil som to takto:
readln(text);
writeln(su, text);
stacilo len trosku porozmylal a bolo to  
ale teraz mam iny problem. Potrebujem, ze ked kurzor pride na urcitu poziciu, tak mi ho da do dalsieho riadku. takyto postup nefunguje:
readln(text);
if wherex =50 then begin
gotoxy(1,wherey+1);
end;
writeln(subor,text);
Nejake napady?

---

Meno: stalker
Dátum: 24.6.2008, 13:33
Predmet: z obrazovky do text.txt

Potreboval by som premennej riadok priradit nie riadok textoveho suboru ale riadok alebo len urcity stlpec v nejakom riadku na obrazovke, aby som mohol naledovne premennu riadok zapisat do suboru text.txt. ako to mam spravit?

---

Meno: bernhaus
Dátum: 16.1.2008, 14:19
Predmet: pozdarav

Vyhladajte zdrojove programy v jazyku Pascal programi zapiste do zosita a vytvorte rozbor klucovych slov programu prosim poslite mi to na mail bernhaus zavináč centrum.sk

---

Meno: Sulo
Dátum: 13.12.2007, 21:25
Predmet: Re:pomoc

Sluzi na to procedura Val:

program realprem;
var
retazec: string;
cislo: real;
pomocna: integer;
begin
retazec := '12.0';
Val(retazec, cislo, pomocna);
writeln(cislo);
end.

---

Meno: vasava
Dátum: 13.12.2007, 17:34
Predmet: pomoc

Potreboval by som poradiť a dúfam, že to tu niekde nie je spomenuté. Mám niečo v tvare:

repeat
readln(subor,riadok)

a potrebujem obsah riadku previesť z typu string do real, aby som mohol porovnávať číselné hodnoty v súbore.

Ďakujem za odpoveď.

---