[ yokid @ 21.08.2005. 20:46 ] @
Zdravo.

*.txt fajl ima tri linije teksta koje hocu da ucitam u program u tri razlicite promenljive (string). Moze li pomoc?
[ buha18 @ 21.08.2005. 22:12 ] @
hmmm...
ne znam direkt kako to uraditi.
ali ako ti ovo pomogne


Memo1.Lines.LoadFromFile('putanja\IME.txt');
s1:=Memo1.Lines.Names[0];
s2:=Memo1.Lines.Names[1];
s3:=Memo1.Lines.Names[2];

[Ovu poruku je menjao buha18 dana 21.08.2005. u 23:13 GMT+1]
[ PeraKojotSuperGenije @ 22.08.2005. 00:04 ] @
A moze i bez memo-a
Code:

var f: text;{ako koristis delphi onda textfile umesto text}
     s1, s2, s3: string;
begin
  {...}
  assign(f, 'c:\ime.txt');{assignfile umesto assign za delphi}
  reset(f);
  readln(f, s1);
  readln(f, s2);
  readln(f, s3);
  close(f); {closefile umesto close za delphi}
  {...}
end.


[ Nemanja Avramović @ 22.08.2005. 01:11 ] @
[ZA DELPHI]
assignfile umesto assign (za ovo nisam 100% siguran)
i
closefile umesto close

[Ovu poruku je menjao JaHvram dana 22.08.2005. u 02:13 GMT+1]
[ UrosMG @ 26.08.2005. 20:29 ] @
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
[ yokid @ 27.08.2005. 20:58 ] @
Hvala na pomoci.