Zavisi da li radis sa windows programom(tj. da li je vizuelno programiranje u pitanju, tj. da li imas forme), ili je obican konzolni program(bez vizuelizacije).
Gledaj(u pitanju je konzolni program):
Code:
var f:text;
s1,s2,s3:string;
begin
assign(f,'ime fajla');{naravno, samo ime fajla stavljas kad je u istom folderu gde ti je i program; u suprotnom stavljas celu putanju do tog fajla}
reset(f);{ako citas, stavljas reset; u suprotnom, ako pises, rewrite(f)}
readln(f,s1);
readln(f,s2);
readln(f,s3);
close(f);
end.
AKo je u pitanju vizuelni program:
Code:
var f:text;
s1,s2,s3:string;
...
procedure{ili function}...(...);
begin{ovo je neka funkcija, ili procedura...}
system.assign(f,'ime fajla');{naravno, samo ime fajla stavljas kad je u istom folderu gde ti je i program; u suprotnom stavljas celu putanju do tog fajla}
reset(f);{ako citas, stavljas reset; u suprotnom, ako pises, rewrite(f)}
readln(f,s1);
readln(f,s2);
readln(f,s3);
system.close(f);
end;
...
end.
Znaci, jedina razlika ti je u (system.).
s1,s2 i s3 su ti ti ocitani stringovi. Readln je koriscen jer su ti u odvojenim redovima. Poz
Potpis
There exists only 10 kind of people in the world; those who understand binary numbers and those who don't understand binary numbers.
Citanje iz txt fajla.
21.08.2005. u 20:46 · pre 257 meseci
#1