Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: Pascal: Tekstitiedoston käsittely

Wukkopi [28.08.2006 11:27:00]

#

Tällä voi tallentaa asetukset ja ladata asetukset. Tästä pystyy sitten soveltamaan omiin tarkoituksiin.

En ole sitten varma että antaako tuo var tuolla oletuksena tyhjän pätkän, eli jos ei toimi ilman parametrejä niin kirjoittakaa vaikka siihen sitten testi.txt.

procedure Tallenna(var PTiedostoNimi : String);
 var
   Tiedosto : Textfile;
   Bufferi  : String;
begin
  if PTiedostonimi <> '' then
    assignfile(Tiedosto,PTiedostoNimi)
  else
    assignfile(Tiedosto,'test.txt');
  rewrite(Tiedosto);
  Bufferi := 'eka rivi';
  writeln(Tiedosto,Bufferi);
  Bufferi := 'toka rivi'
  writeln(Tiedosto,Bufferi);
  closefile(Tiedosto);
end;
procedure Lataa(var PTiedostoNimi : String);
 var
   Tiedosto : Textfile;
   Bufferi  : String;
begin
  if PTiedostonimi <> '' then
    assignfile(Tiedosto,PTiedostoNimi)
  else
    assignfile(Tiedosto,'test.txt');
  reset(Tiedosto);
  readln(Tiedosto,Bufferi);
  form1.Caption := Bufferi + ' / ';
  readln(Tiedosto,Bufferi);
  form1.Caption := form1.caption + Bufferi;
  closefile(Tiedosto);
end;

Metabolix [17.09.2006 17:00:54]

#

Aivan turhaan laitat parametrin muuttujana, kun ei sitä edes muokata. Vakio olisi siis oikeampi tapa. Nyt ei myöskään toimi kutsuminen suoraan nimellä, vaan pitää todella antaa jokin muuttuja, kun kerran olet sen muuttujaparametriksi määritellyt. Sitten ihmettelisin, mikä järki on tallentaa tiedostoon vakiona määritellyt rivit ja lukea tiedostosta kaksi riviä ikkunan otsikkoon.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta