forked from malwares/Botnet
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathuStrList.pas
More file actions
52 lines (43 loc) · 839 Bytes
/
Copy pathuStrList.pas
File metadata and controls
52 lines (43 loc) · 839 Bytes
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
47
48
49
50
51
52
UNIT uStrList;
INTERFACE
TYPE
TStrList = CLASS(TObject)
PRIVATE
vList : ARRAY OF STRING;
PUBLIC
Count : Integer;
CONSTRUCTOR Create;
PROCEDURE Clear;
PROCEDURE Add(Text:STRING);
PROCEDURE Replace(Index: Integer; Input: String);
FUNCTION Strings(Index:Integer) : STRING;
END;
IMPLEMENTATION
PROCEDURE TStrList.Replace(Index: Integer; Input: String);
BEGIN
vList[Index] := Input;
END;
CONSTRUCTOR TStrList.Create;
BEGIN
Count:=0;
SetLength(vList,Count+1);
END;
procedure TStrList.Clear;
var
i: Integer;
begin
For i := 0 to Count-1 do
vList[i] := '';
Count := 0;
end;
PROCEDURE TStrList.Add(Text:STRING);
BEGIN
SetLength(vList,Count+1);
vList[Count]:=Text;
Inc(Count);
END;
FUNCTION TStrList.Strings(Index:Integer) : STRING;
BEGIN
Result:=vList[Index];
END;
END.