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;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.
Aihe on jo aika vanha, joten et voi enää vastata siihen.