Question

delphi edit文本的内容text保存到文本.txt中的问题？（升级版）

已知1个button1，一个edit1。点击button1edit文本的内容text保存到文本.txt中。如何实现保存的文本规定字符数啊，如10个字符。无字符用空格代替。即：edit1.text:="123";文本.txt是：123加7个空格。edit1.text:="1234";文本.txt是：1234加6个空格。edit1.text:="12";文本.txt是：12加8个空格。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
function FillSpace(s: string; c: Integer): string;
var
i: Integer;
begin
for i := Length(s) to c - 1 do
s := s + Chr(32);
Result := s;
end;
var
txt: TextFile;
s: string;
begin
s := FillSpace(Edit1.Text, 10);
AssignFile(txt,'E:\test.txt');
Rewrite(txt);
Writeln(txt, s);
CloseFile(txt);
end;