(Delphi) lab 5.2 Lib.dll

library DLL;

uses
  System.SysUtils,
  System.Classes,
  System.Generics.Collections;

{$R *.res}

Function IsCorrectData(FileName: String): Boolean; Stdcall;
Var
    InputFile: TextFile;
    Temp: Integer;
    IsCorrect: Boolean;
    TempS: String;
Begin
    AssignFile(InputFile, FileName);
    Reset(InputFile);
    IsCorrect := True;
    TempS := '';

    Readln(InputFile, TempS);

    If TempS = '' Then
        IsCorrect := False;

    Reset(InputFile);
    While (Not EoF(InputFile)) And IsCorrect Do
    Begin
        Try
            Read(InputFile, Temp);
        Except
            IsCorrect := False;
        End;
        If IsCorrect And ((Temp > 999) Or (Temp < 0)) Then
            IsCorrect := False;
    End;
    Close(InputFile);
    IsCorrectData := IsCorrect;
End;

Function InputFromFile(FileName: String): TList<Integer>; Stdcall;
Var
    InputFile: TextFile;
    Temp: Integer;
    TempList: TList<Integer>;
Begin
    TempList := TList<Integer>.Create;
    AssignFile(InputFile, FileName);
    Reset(InputFile);
    While Not EoF(InputFile) Do
    Begin
        Read(InputFile, Temp);
        TempList.Add(Temp);
    End;
    Close(InputFile);
    InputFromFile := TempList;
End;

Procedure OutputToFile(FileName: String; BinaryTreeString: String); Stdcall;
Var
    OutputFile: TextFile;
Begin
    AssignFile(OutputFile, FileName);
    Rewrite(OutputFile);
    Writeln(OutputFile, BinaryTreeString);
    CloseFile(OutputFile);
End;

Exports
IsCorrectData,
OutputToFile,
InputFromFile;

Begin
End.