13,825
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
ls: TStrings;
begin
with Memo1 do
begin
Clear;
Lines.Add('2009-10-3 3 张三 87.3');
Lines.Add('2009-10-4 4 张四 87.4');
Lines.Add('2009-10-5 5 张五 87.5');
end;
ls := TStringList.Create;
ls.Delimiter := ' ';
for i:=0 to Memo1.Lines.Count-1 do
begin
ls.DelimitedText := Memo1.Lines[i];
StringGrid1.Rows[i] := ls;
end;
ls.Free;
end;