library hmb;

uses
     SysUtils,
     Classes,
     DataInput in '..\utf8\DataInput.pas';

{$R *.res}

var
     list: TStringList;

// Открыть файл, попытаться прочитать строки, вернуть количество строк
// 0 - если нет строк или не удалось открыть
function Open(filename: PChar): Integer; stdcall; export;

begin
     list := TStringList.Create;
     try

       list.LoadFromFile(filename);

       Result:=list.Count;
     except
       Result := -1;
     end;
end;

// Сохраняем файл под новым именем
function SaveAs(s: PChar): Boolean; stdcall; export;

begin
     try
     list.SaveToFile(s);
     Result := true;
     except
       Result := false;
     end;
end;

// освобождаем занятую память
procedure Free(); stdcall; export;
begin
     list.Free;
end;

// Получить строку текста
function Get(n: integer): PChar; stdcall; export;
var
     s: String;
begin
     s:='';
     if (list <> nil) and (n>=0) and (n<list.Count) then
     begin
       s := list[n];
     end;
     Result := PChar(s);
end;

// Изменить строку в тексте
procedure Change(n: Integer; str: PChar); stdcall; export;
begin
     if (list <> nil) and (n>=0) and (n<list.Count) then
     begin
       list[n] := str;
     end;
end;

// О программе: автор и т.д.
function About(): Pchar; stdcall; export;
begin
     Result := 'hak 48';
end;

exports
     Open,
     SaveAs,
     Get,
     Change,
     Free,
     About;

begin
end.