Question

delphi 中一TXT文本中由10个空格隔开的数据把它们放到程序的一个数组中。怎么弄?

Answer 1

var
st, st1: TStringList;
ch: array[0..9] of Integer;
i: Integer;
begin
st := TStringList.Create();
st1 := TStringList.Create();
st.LoadFromFile('1.txt');
ExtractStrings([' '], ['.', '#'], PChar(st.Text), St1);
for i := 0 to 9 do
begin
ch[i] := StrToInt(st1[i]);
end;
st.Free;
st1.Free;
end;

Answer 2

Procedure TForm1.Button1Click(Sender: TObject);
Var
S: String;
alist: TStringList;
Begin
alist := TStringList.Create;
Try
alist.LoadFromFile('c:\ss.txt'); //加载以“”分段的文本。
alist.CommaText := alist.Text;
While alist.Count <> 0 Do
Begin
S := alist[0];
alist.Delete(0);
Application.MessageBox(PChar(S), 'MSG', 64);
End;
Finally
alist.Clear;
alist.Free;
End;
End;