|
Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
Turbo Delphi für Win32
|
Re: Dateinamen vergeben (ansteigend)
3. Apr 2005, 20:03
Wenn man die führenden Nullen angeben will, muss man noch folgendes machen:
Delphi-Quellcode:
const prefix='JPG'
stellen=3
...
zahlstr:=inttostr(zahl);
for I:=1 to stellen-length(zahlstr) do
zahlstr:='0'+zahlstr;
//Und dann noch:
dateiname:=prefix+zahlstr;
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
|