W jaki spasób można scrollować (przewijać) tekst w Turbo Pascalu, który jest odczytany z pliku ?
0
0
Fajny scroolowany "neonik" :) Czyta jedną linijkę z pliku tekstowego.
[code]
uses crt;
var Plik : Text;
s : string;
c:char;
i : integer;
begin
Assign(Plik, 'plik.txt');
Reset(Plik);
Readln(Plik, s);
Close(Plik);
s := s + ' '; { aby lepiej wyglądało }
repeat
c := s[1];
for i:=1 to length(s)-1 do
s[i] := s[i+1];
s[length(s)] := c;
clrscr;
Write(s);
delay(100);
until keypressed;
end.
[/code]
0
Chyba chodzi o przewijanie góra-dół ekranów. Najwygodniej to chyba wrzucić na listę i wyświetlać elementy listy od pewnego momentu.