Question

Delphi 动态数组值在字符串中是否存在

我想将Listbox.Count 的数据赋给动态数组
然后判断每行的数据是否在Memo1中出现怎样写代码,谢谢!
判断的时候用if pos可以
主要这个动态数组不知道怎么写,现在脑子乱乱的

Answer 1

var
strarray: array of string;
i, j: integer;
begin
setlength(strarray, listbox1.Count);
for i := low(strarray) to high(strarray) do
strarray[i] := listbox1.Items.Strings[i - low(strarray)];
for i := low(strarray) to high(strarray) do
for j := 0 to memo1.Lines.Count - 1 do
if pos(strarray[i], memo1.Lines[j]) then
...................
end;