1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

UNIT StrList;

INTERFACE

TYPE
  TStrList = CLASS(TObject)
  PRIVATE
    vList  : ARRAY OF STRING;
  PUBLIC
    Count : Integer;
    CONSTRUCTOR Create;
    PROCEDURE   Add(Text:STRING);
    FUNCTION    Strings(Index:Integer) : STRING;
    FUNCTION    Exists(Name: String) : BOOLEAN;
  END;

IMPLEMENTATION

CONSTRUCTOR TStrList.Create;
BEGIN
  Count:=0;
  SetLength(vList,Count+1);
END;

PROCEDURE TStrList.Add(Text:STRING);
BEGIN
  SetLength(vList,Count+1);
  vList[Count]:=Text;
  Inc(Count);
END;

FUNCTION TStrList.Exists(Name: String) : BOOLEAN;
VAR
  I : Integer;
BEGIN
  Result := FALSE;
  FOR I := 0 TO Count-1 DO
    IF Strings(I) = Name THEN Result := TRUE;
END;

FUNCTION TStrList.Strings(Index:Integer) : STRING;
BEGIN
  Result:=vList[Index];
END;

END.