delphi中有无格式化输入的函数(反Format函数)

Question

世界都知道有Format函数:
var A,B:integer;S:string;
A:=12;B:=34;
S:=format('%d=%d',[B,A]);
于是S='34=12'那有没有函数有像C那样的read函数实现倒过来的功能,即一次过把'34=12'中的34和12存入B和A的函数.

Answer 1

var
  A, B: integer;
  S: string;
begin
  S := Format('%d,%d',[A,B]);
  ShowMessage(S);
end;

Answer 2

{我没找到这样的格式化输入函数}
program Project1;{$APPTYPE CONSOLE}uses
  SysUtils, Classes;
var
  S: string;
  SS: TStringList;
  I: integer;
begin
  ReadLn(S);
  SS := TStringList.Create;
  SS.Text := StringReplace(S, '=', #10, [rfReplaceAll]);
  for I := 0 to SS.Count-1 do
    WriteLn(SS[I]);
end.{
测试方法:
cmd
prjcect1 34=12回车
}

Answer 3

测试方法,打错了,应是:cmd
project1回车
34=12回车

Answer 4

感谢您的热心回答我想再等等看有无高人来真正找到这样的东西可以不是delphi内部的函数

Answer 5

我就是想要一个类似C的scanf函数（过程？）；

Answer 6

若是在可视化界面输入，可以用 MaskEdit 控件。