Ĺadny brzuch
Jak w Pascalu moge po otworzeniu pliku tekstowego przejść do jego wybranego wiersza i litery w wierszu ?
Chodzi mi o podobny mechanizm do GotoXY ...
To nie jest takie proste, ale można zacząć od czegoś takiego:uses crt; var f:text; linia:string; k:char; x, y:byte; begin clrscr; assign(f,'tab_cel.pas'); reset(f); while not eof(f) do begin readln(f,linia); writeln(linia); end; close(f); repeat k:=readkey; case k of #72:dec(y); #80:inc(y); #75:dec(x); #77:inc(x); end; gotoxy(x,y); until k=#27; end.Oczywiście, żeby zrobić to solidnie (i w pełni działające), trzeba by było zastosować jakiś bufor tekstu, itp.
A czemu nie usunęłeś tego posta Wiciu?? Co?? Przepuściłeś??
HA!
Użytkownik Cyrkiel edytował ten post 21 luty 2005, 17:51
Daję linka, żeby Wiciu nic nie mówił:
http://rafb.net/past...s/UYyYpb15.html
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Chodzi mi o podobny mechanizm do GotoXY ...
To nie jest takie proste, ale można zacząć od czegoś takiego:uses crt; var f:text; linia:string; k:char; x, y:byte; begin clrscr; assign(f,'tab_cel.pas'); reset(f); while not eof(f) do begin readln(f,linia); writeln(linia); end; close(f); repeat k:=readkey; case k of #72:dec(y); #80:inc(y); #75:dec(x); #77:inc(x); end; gotoxy(x,y); until k=#27; end.Oczywiście, żeby zrobić to solidnie (i w pełni działające), trzeba by było zastosować jakiś bufor tekstu, itp.
A czemu nie usunęłeś tego posta Wiciu?? Co?? Przepuściłeś??
HA!
Użytkownik Cyrkiel edytował ten post 21 luty 2005, 17:51
Daję linka, żeby Wiciu nic nie mówił:
http://rafb.net/past...s/UYyYpb15.html