(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.119 Beiträge
Delphi 11 Alexandria
|
1. Mär 2003, 00:22
Moin Daniel,
dann eben so:
AnsiUpperCase(paramstr(0)[1])+AnsiLowerCase(copy(ChangeFileExt(paramstr(0),'.ini'),2,length(paramstr(0))));
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|