Re: "Pascal and files."

In: s/pascal

some links:

— https://wiki.freepascal.org/Assign

— https://wiki.freepascal.org/Rewrite

— https://wiki.freepascal.org/Category:File_Handling

— https://wiki.freepascal.org/File_Handling_In_Pascal

🐙 norayr [mod]

2024-05-17 · 2 years ago

8 Later Comments ↓

🐙 norayr [mod] · 2024-05-17 at 11:39:

new, oop way of doing things is via streams:

program InOutStream;

{$mode objfpc}

uses
  Classes, SysUtils;
var
  InStream, OutStream: TFileStream;
begin
  if (ParamCount = 2) and
    FileExists(ParamStr(1)) and
    FileExists(ParamStr(2)) then
  begin
    InStream := TFileStream.Create(ParamStr(1), fmOpenRead);
    try
      OutStream := TFileStream.Create(Paramstr(2), fmOpenWrite);
      try
        OutStream.Position := OutStream.size;
        OutStream.CopyFrom(InStream, 0); // appends
      finally
        OutStream.Free;
      end;
    finally
      InStream.Free;
    end;
  end else 
    Writeln('Usage: inoutstream <infile> <outfile>');
end.

🐙 norayr [mod] · 2024-05-17 at 11:41:

in first old style example you can use read() to read only one character, to create a parser.

🐙 norayr [mod] · 2024-05-17 at 11:42:

— i found a markdown parser for freepascal.

🐙 norayr [mod] · 2024-05-17 at 11:43:

wow, it also generates html from markdown!

🐙 norayr [mod] · 2024-05-17 at 11:45:

in the demos i see .lpi file, that's a file for a lazarus ide. you can work without the ide, you would need to change the demos to not require graphics at all, and instead of showing graphically, to use input and output files.

🚂 MrSVCD [OP] · 2024-05-17 at 13:23:

Thank you.

If I can make it compatible with Hispeed Pascal for amiga would be a bonus. Hispeed say that they are almost fully TP 5 compatible.

🐙 norayr [mod] · 2024-05-17 at 14:37:

then the first way should work. yes, it would be very cool to have the same source for both amiga and pc. btw, freepascal also can compile for amiga.

— channel

contains lots of freepascal amiga demos.

🐙 norayr [mod] · 2024-08-08 at 00:28:

i just noticed that the litk to the channel is broken.

— this is the link

🌒 s/pascal

🚂 MrSVCD:

Pascal and files. — I am looking for a guide to use text files in freepascal. I am looking to make a gemtext to html tool because it sounds like a good project. The link conversation is going to be a challenge but I am looking forward to it.

💬 10 comments · 1 like · 2024-05-17 · 2 years ago