Namen der Ini kleinschreiben

[Daniel B]

Moin Christian,

Zitat:

Zitat von Christian Seehase

Delphi-Quellcode:

AnsiUpperCase(paramstr(0)[1])+AnsiLowerCase(copy(ChangeFileExt(paramstr(0),'.ini'),2,length(paramstr(0))));

:mrgreen: ROTFL :mrgreen:
Der war gut. Würde aber gehen denk ich. ;)

Grüsse, Daniel :hi:

[Daniel B]

Hallo Christian,

Zitat:

Zitat von Daniel B

Würde aber gehen denk ich. ;)

Nee, nicht einmal. Der erste ist immernoch klein. Komisch, komisch, sollte doch stimmen. Sehe jedenfalls keinen Fehler.

Grüsse, Daniel :hi:

[janjan]

Kuck dir die Ausgabe davon mal ganz genau an. Nicht der erste Buchstabe des Dateinamens wird groß geschrieben sondern der Laufwerksbuchstabe.

[janjan]

So sollte es gehen:

Delphi-Quellcode:

ExtractFileDir(paramstr(0))+
'\'+
AnsiUpperCase(ExtractFileName(paramstr(0))[1])+
AnsiLowerCase(copy(ChangeFileExt(ExtractFileName(paramstr(0)),'.ini'),2,length(ExtractFileName(paramstr(0)))));

[Christian Seehase]

Moin janjan,

da hast Du auch wieder recht :oops: :mrgreen:

Allerdings:
Es genügt als Längenangabe beim Copy length(paramstr(0)), da copy automatisch aufhört, sobald die maximal mögliche Länge erreicht ist.
Wenn Du dann noch statt ExtractFileDir ExtractFilePath verwendest sparst Du Dir noch ein +'\'. ;-)

Delphi-Quellcode:

ExtractFilePath(paramstr(0))+
AnsiUpperCase(ExtractFileName(paramstr(0))[1])+
AnsiLowerCase(copy(ChangeFileExt(ExtractFileName(paramstr(0)),'.ini'),2,length(paramstr(0))));

[Daniel B]

Moin Christian,

Zitat:

Zitat von Christian Seehase

Delphi-Quellcode:

ExtractFilePath(paramstr(0))+
AnsiUpperCase(ExtractFileName(paramstr(0))[1])+
AnsiLowerCase(copy(ChangeFileExt(ExtractFileName(paramstr(0)),'.ini'),2,length(paramstr(0))));

Damit geht es. Natürlich wollte ich von anfang an das der erste Buchstabe gross ist, sieht ja sonst auch blöd aus. ;)
Aber es klappt wunderbar. Danke Dir!

Grüsse, Daniel :hi:

[Christian Seehase]

Moin Daniel,

also der Dank gebührt aber janjan.

Ich hab' nur seinen Source etwas umgebaut.

[Daniel B]

Stimmt ja. :oops:
Natürlich auch janjan vielen Dank. Sorry.

Allerdings muss ich noch was loswerden. Hoffentlich versohlt mir jetzt niemand den Popo, aber ich spiele ernsthaft mit dem Gedanken, einfach den Namen selbst zu schrieben und gut ist, dann ist der Befehl auch nicht drei Zeilen lang. :)

Grüsse, Daniel :hi: