FILES - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

FILES

johnpilulajohnpilula Posts: 2Member
I NEED HELP ON THE SOURCE CODE ON HOW TO STORE A FILE AND RETRIEVED WHEN CALLED UPON
THANX

Comments

  • zibadianzibadian Posts: 6,349Member
    : I NEED HELP ON THE SOURCE CODE ON HOW TO STORE A FILE AND RETRIEVED WHEN CALLED UPON
    : THANX
    :
    That is a very general question, but here are two sources, which will store and then display any number f lines entered by the user. For more specialized file-IO, you need to be more specific in your question.
    [code]
    var
    f: text;
    s: string;
    begin
    Assign(f,'somefile.txt');
    Rewrite(f);
    repeat
    write('enter a text:'); readln(s);
    writeln(f, s);
    write('Want to stop ?');
    until Upcase(ReadKey)='Y';
    Close(f);
    end.
    [/code]

    [code]
    var
    f: text;
    s: string;
    begin
    Assign(f,'somefile.txt');
    Reset(f);
    while not eof(f) do begin
    readln(f, s);
    writeln(s);
    end;
    Close(f);
    end.
    [/code]
Sign In or Register to comment.