写入文本的问题！

Question

str1:=1111111       2893.35
str2:=2222222        784.17
str3:=3333333         58.34
Str4:=4444444          7.51
........
Str1:=Trim(Str1);
tmpStr:=Copy(str1,1,Pos(' ',Str1)-1);
Delete(Str1,Pos(' ',Str1));
Str1:=Trim(Str1);
Str1:=TmpStr+'     '{十个空格}+Str1;
....

Answer 1

procedure TFormMain.DatabaseSetup(Database: TDatabase);
var txtmp:TStringList;
    WorkPath:String;
    UserName:String;
    PassWord:String;
    SeverName:String;
    HostName:String;
    //PD:String;
begin     txtmp:=TStringList.Create;
      WorkPath:= ExtractFilePath(Application.ExeName);
      if WorkPath[Length(WorkPath)] <> '\' then WorkPath := WorkPath + '\';
      txtmp.LoadFromFile(''+WorkPath+'a.text');
      SeverName:=trimleft(txtmp.Values['Edit1']);
      HostName:=trimleft(txtmp.Values['Edit2']);
      UserName:=trimleft(txtmp.Values['Edit3']);
      PassWord:=trimleft(txtmp.Values['Edit4']);
      UserName:=trimleft(txtmp.Values['Edit3']);
      Database.Params.Clear ;
      Database.DriverName :='MSSQL';
      Database.DatabaseName :='mmm';      DataBase.Params.Values['DATABASE NAME']:='RSGL';
      DataBase.Params.Values['SERVER NAME']:=SeverName;
      DataBase.Params.Values['HOST NAME']:=HostName;
      DataBase.Params.Values['USER NAME']:=UserName;
      DataBase.Params.Values['PassWord']:=PassWord;
      Database.loginprompt := false;
      Database.Connected :=true;
end;不难，给你个例子！！自己看