Niezalogowany (Zaloguj się)
WItaj Gościu! Możesz się teraz zalogować lub poprosić o członkowstwo na Forum Turbo Pascal Web Pag
    • CommentAuthorelodymek
    • CommentTime19 Dec 2007
     
    W jaki sposób mam przejść do nowego wiersza w takiej pętli: while k<> nw do begin read(h,p); write(g,p); end; k:=k+1; end; nw to konkretny numer wiersza, pętla zaczyna od początku pliku... readln; nie działa Jakieś sugestie?
    • CommentAuthorrachwal
    • CommentTime19 Dec 2007
     
    Readln powinien byc wystarczajacy. Moze problem ze znakiem konca wiersza w Twoim pliku ?
    • CommentAuthorsteficzek
    • CommentTime19 Dec 2007 zmieniony
     

    Uses Crt;

    Var Plik : Text;
    s : string;

    procedure UtworzPlik;
    begin
    Assign(Plik,'test.txt');
    ReWrite(Plik);
    Writeln(Plik,'Linijka pierwsza');
    Writeln(Plik,'Linijka druga');
    Writeln(Plik,'Linijka trzecia');
    Writeln(Plik,'Linijka czwarta');
    Close(Plik)
    end;

    Begin
    ClrScr;
    UtworzPlik;
    Assign(Plik,'test.txt');
    Reset(Plik);
    while not Eof(Plik) do
    begin
    Readln(Plik,s);
    Writeln(s)
    end;
    Close(Plik)
    End.


    A jednak działa - powyższy program tworzy plik 'test.txt' z czterema linijkami tekstu jedna pod drugą, a potem kolejno je odczytuje i wyświetla na ekranie

    Pozdrawiam Stefan Pruszkiewicz