Keskustelu: Koodit: Pascal: Tiedoston lukeminen ja kirjoittaminen

var
 Tiedosto: TextFile;
 Buffer  : String;
begin
 AssignFile(Tiedosto, 'C:\Polku\Tiedostonimi.txt');
 Reset(Tiedosto);
 ReadLn(Tiedosto, Buffer) //Luettu data on nyt Buffer:issa
 ShowMessage(Buffer);    //Esim.
 CloseFile(Tiedosto);
end;
 //HUOM! ReadLn lukee vain yhden rivin tiedostosta

var
 Tiedosto: TextFile;
 Buffer  : String;
begin
 Buffer := 'Helou :)';
 AssignFile(Tiedosto, 'C:\Polku\Tiedostonimi.txt');
 ReWrite(Tiedosto);
 WriteLn(Tiedosto, Buffer) //Luettu data on nyt Buffer:issa
 CloseFile(Tiedosto);
end;
//Kirjoitti tiedostoon "Helou :)"
//HUOM! ReWrite tyhjentää tiedoston jos se on valmiiksi
//olemassa, muussa tapauksessa luo sen. Jos haluat lisätä
//jotain tiedoston loppuun, korvaa ReWrite(); -> Append();