[ ZeksBrate12 @ 30.04.2020. 09:25 ] @
ZADATAK GLASI :Napisati program pomoću kojeg korisnik čita tekst iz
već ranije napravljene datoteke zadatak.txt smještene na
C disku (ispis raditi u labelu). ako neko zna, kad sam je upisivao u c disk ovako sam uradio pa ako mozete i na takav slican princip da i ovaj uradite?
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=(edit1.text);
assignfile(f,'C:\datoteka.txt') ;
rewrite(f);
writeln(f,a);
closefile(f);
end;
end.
[ savkic @ 30.04.2020. 12:01 ] @
Za citanje se koristi ReadLn, dakle napravi novu funkciju, malo promeni tvoj postojeci kod i umesto WriteLn stavi ReadLn a nakon toga setuj sadrzaj labela sa Label1.Caption := a;