摘要： 一、遍历 TStringsvar List: TStrings; s: string;begin List := TStringList.Create; List.CommaText := 'aaa,bbb,ccc'; for s in List do ShowMessage(s); List.Free;end;二、遍历数组var Arr: array[0..2] of Byte; i: Integer; b: Byte;begin for i := Low(Arr) to High(Arr) do Arr[i] := Random(MAXBYTE); for... 阅读全文