FPS

Mokausi fps, db pradejau mokintis su failais... ir kai nuskaitau su assign txt faila padarau reset bandau ji atvaizduot su writeln(); ir kazkodel nieko neparodo... gal kas gali paaiskint kdl nk nerodo? o gal reik kazkaip kitaip is failo atvaizduot ;]

o googlo bent paklausei?

http://lmgtfy.com/?q=pascal+read+file

beto kaip galim tau padeti, jei net kodo savo neparasei?

google naudojaus.. bet nlb kur parasyta kaip atvaizduot kas parasyta faile... ten tik visur rasymas, perrasymas... nu as darau sitaip...

program antra;
var 
s: string;
ls:   text;
begin
Assign(ls,'antra.txt');
Reset(ls);
while not eof(ls) do
Readln(ls,s);
writeln(s);
close(ls);
end.

google naudojaus.. bet nlb kur parasyta kaip atvaizduot kas parasyta faile... ten tik visur rasymas, perrasymas... nu as darau sitaip...

program antra;
var 
s: string;
ls:   text;
begin
Assign(ls,'antra.txt');
Reset(ls);
while not eof(ls) do
Readln(ls,s);
writeln(s);
close(ls);
end.

Pabandyk pilna kelia nurodyt iki failo

pvz C:\Users\Useris\Desktop

Jeigu programos *.pas failas yra tame paciame forlderyje tai galima rasyti Assign (ls, 'blablabla.txt'); O jei ne tam paciam tai reikia nurodyti pilna kelia. :(

Jeigu programos *.pas failas yra tame paciame forlderyje tai galima rasyti Assign (ls, 'blablabla.txt'); O jei ne tam paciam tai reikia nurodyti pilna kelia. :(

Na man tai buvo vienintele problema naudojant jo parasyta programa.

viskas veikia ;] db tam faile yra daug zodziu is naujos eilutes... tai kaip man butu galima juos issirinkt po viena skirtingam dalykam ? gal kas gali padet :(

viskas veikia ;] db tam faile yra daug zodziu is naujos eilutes... tai kaip man butu galima juos issirinkt po viena skirtingam dalykam ? gal kas gali padet :(

As taip daryciau :D cia visus tuos zodzius sudes i masyva ir paskui is jo isvedines.

program antra;
type
mastip = array [1..200] of string;
var 
s: string;
ls:   text;
MAS : mastip;
i : integer;
begin
i := 1;
Assign(ls,'antra.txt');
Reset(ls);
while not eof(ls) do 
begin
Readln(ls,MAS[i]);
writeln(MAS[i]);
i := i + 1;
end;
close(ls);
end.

Aciu, dar pora klausimu, jei as is txt issitraukiu koki skaiciu pvz 7 ir noriu padaryt kad pagal tai koks skaicius man roditu fono spalva, bet jei rasau ta kur issitraukiu kaip fono spalva man rodo klaida.. tai ar taip neimanoma padaryt ar kazka netaip darau?? ir kaip istraukt random eilute is failo ;]

Aciu, dar pora klausimu, jei as is txt issitraukiu koki skaiciu pvz 7 ir noriu padaryt kad pagal tai koks skaicius man roditu fono spalva, bet jei rasau ta kur issitraukiu kaip fono spalva man rodo klaida.. tai ar taip neimanoma padaryt ar kazka netaip darau?? ir kaip istraukt random eilute is failo ;]

Na nelabai supratau ka cia su fonais nori daryti. o random eilute tai trauk ne is failo o is masyvo, nes masyve visos tos eilutes sudetos yra. :(

Nu ta prasme is masyvo issitraukiu tarkim spalva 'white' ir noriu padaryt kad tokios spalvos butu fonas... tai kaip butu galima tai padaryt nes man kazko meta klaida jei rasau vietoj spalvos kintamaji.