Subversion Repositories oidplus

Compare Revisions

Regard whitespace Rev 735 → Rev 734

/trunk_dos/STRLIST.PAS
3,7 → 3,7
(************************************************)
(* STRLIST.PAS *)
(* Author: Daniel Marschall *)
(* Revision: 2022-02-14 *)
(* Revision: 2020-09-11 *)
(* License: Apache 2.0 *)
(* This file contains: *)
(* - StringList implementation for Turbo Pascal *)
19,11 → 19,11
next: PStringList;
end;
 
procedure CreateList(var list: PStringList);
procedure InitList(var list: PStringList);
procedure FreeList(list: PStringList);
function ListContains(list: PStringList; val: string): boolean;
procedure ListClear(list: PStringList);
function ListAppend(list: PStringList; str: string): integer;
procedure ListAppend(list: PStringList; str: string);
function ListCount(list: PStringList): integer;
procedure ListDeleteElement(list: PStringlist; idx: integer);
function ListGetElement(list: PStringList; idx: integer): string;
39,7 → 39,7
uses
VtsFuncs;
 
procedure CreateList(var list: PStringList);
procedure InitList(var list: PStringList);
begin
GetMem(list, SizeOf(TStringList));
list^.init := false;
77,13 → 77,11
end;
end;
 
function ListAppend(list: PStringList; str: string): integer;
procedure ListAppend(list: PStringList; str: string);
var
new: PStringList;
tmp: PStringList;
cnt: integer;
begin
cnt := 0;
if not list^.init then
begin
list^.element := str;
91,7 → 89,6
end
else
begin
Inc(cnt);
GetMem(new, sizeof(TStringList));
new^.element := str;
new^.next := nil;
101,13 → 98,10
while tmp^.next <> nil do
begin
tmp := tmp^.next;
Inc(cnt);
end;
 
tmp^.next := new;
end;
 
ListAppend := cnt; (* Return the index where the new element was put *)
end;
 
function ListCount(list: PStringList): integer;