急!!!!!!!!!!

Question

var
  i,iLength : integer;
  sText,sNew : string;
begin
  sText := Trim(edtText.Text); //'6854444'
  iLength := length(sText);
  for i := 1 to 12 - iLength do
    sText := ' ' + sText;
  edtNew.Text := sText;
end;

Answer 1

var  s : String ;
tempstr : String ;
begin
  s := '685444420020420';
  tempstr := copy(s,1,7);
  while length(tempstr) <8 do
  tempstr := ' '+tempstr ;
  end ;

Answer 2

readln读入数据的时候用trim(string),能给个简单例子吗？劳驾

Answer 3

伪码
ln := readln;while not eof do
begin
  phone_no := copy(1n, 1, length(ln)-8);
  date := copy(ln, length(ln)-8+1, 8);  insert_into_pdox(phone_no, date);
  ln := readln;
end;