[Pascal] Guardar dados em ficheiro txt!
Aqui fica um pequeno script para guardar dados num ficheiro txt, o fiocheiro vai ser criado na directorias c:
program gravarficheirostxtporcenourinha;
uses crt;
var Ficha: text;
Letra: char;
Begin
clrscr;
Assign(Ficha,\\'texto.txt\\');
{$I-}
rewrite(Ficha);
{$I+}
if IOResult=0 then
writeln(\\'Ficheiro nao criado!\\')
else
writeln(\\'Ficheiro Criado com Sucesso\\');
writeln(\\'Escreva um texto e digite um ponto final para finalisar!\\');
repeat
read(letra);
write(Ficha,letra);
until letra=\\'.\\';
writeln;
Writeln(\\'O que foi escrito no ficheiro foi:\\');
Reset(Ficha);
while not eof(Ficha) do
Begin
read(Ficha,letra);
write(letra);
end;
close(ficha);
writeln;
clrscr;
writeln(\\'Script criado por cenourinha | www.webtuga.com \\');
readkey;
end.
Espero que gostem!!
Ya eu tou a aprender isso em BP...