Forum: Sonstige Fragen zu Delphi
Delphi
by Christian Seehase,
1. Mär 2003
Moin Daniel,
also der Dank gebührt aber janjan.
Ich hab' nur seinen Source etwas umgebaut.
Forum: Sonstige Fragen zu Delphi
Delphi
by Christian Seehase,
1. Mär 2003
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 +'\'. ;-)
ExtractFilePath(paramstr(0))+
AnsiUpperCase(ExtractFileName(paramstr(0)))+
Forum: Sonstige Fragen zu Delphi
Delphi
by Christian Seehase,
28. Feb 2003
Moin Daniel,
Dein ursprünglicher Wunsch war es den Dateiname in Kleinbuchstaben zu bekommen, das ginge mit der einmaligen Umwandlung.
Wenn Du jetzt den Anfang gross und den Rest klein haben willst, dann muss die Zeile eben so lang werden wie erforderlich ;-)
Forum: Sonstige Fragen zu Delphi
Delphi
by Christian Seehase,
28. Feb 2003
Moin Daniel,
dann eben so:
AnsiUpperCase(paramstr(0))+AnsiLowerCase(copy(ChangeFileExt(paramstr(0),'.ini'),2,length(paramstr(0))));
:mrgreen:
Forum: Sonstige Fragen zu Delphi
Delphi
by Christian Seehase,
28. Feb 2003
Moin Daniel,
mir ist so in dunkler Erinnerung, ohne Gewähr allerdings, das dieses Verhalten einstellbar ist/war (unter 95???).
Deshalb die Frage.
Du könntest es ja einfach mal hiermit probieren:
AnsiLowerCase(ChangeFileExt(ParamStr(0), '.ini'));
Forum: Sonstige Fragen zu Delphi
Delphi
by Christian Seehase,
28. Feb 2003
Moin Daniel,
geht das bei Dir mit der Kleinschreibung, wenn Du die Datei manuell mit "Neu\Textdatei" anlegst?
