Das ist wohl die einfachste Lösung.
3 Editfelder und ein Button.
Edit1 = Dateiname (z.B. "irgend.was")
Edit2 = Das Zeichen, welches dort rein soll (z.B. "#")
Edit3 = die Dateigöße in Byte (z.B. "123456")
Delphi-Quellcode:
Procedure TForm1.Button1Click(Sender: TObject);
Var D: File of Char;
I, A: Integer;
C: Char;
Begin
A := StrToIntDef(Edit2.Text, -1);
If A < 0 Then Begin
ShowMessage('Geben sie ''ne Gültige Dateigrösse an!');
Exit;
End;
If Length(Edit3.Text) < 1 Then Begin
ShowMessage('Geben sie ein Zeichen an!');
Exit;
End;
C := Edit3.Text[1];
AssignFile(D, Edit1.Text);
Rewrite(D);
For I := 1 to A do Write(D, C);
CloseFile(D);
End;