depphi怎样对文本操作?

Question

比如我的文本中都是7902191587401010101002032348 000001128.36X这样的数字 每行这样都是这样的一串数字,数字表示比如前面六位是出生年月,中间几个数字代表省市,后面代表帐号,还有几位数字代表金额,我在delphi中如何实现读取这些数字? 有什么办法打印吗?

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  birthday, region: string;
begin
  Memo1.Lines.LoadFromFile('txtfile');
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    birthday := copy(Memo1.Lines[i], 1, 6);
    region := copy(Memo1.Lines[i], 7, 4);
    //...
  end;
end;

Answer 2

打印有什么办法吗?
谢谢chinasdp兄。

Answer 3

打印可以用QRStringsBand1或者QrMemo控件, Delphi下有Demo的.