Delphi String zählen und bis zum Punkt entfernen

[Back2Code]

Hi DP,

ich bin dabei einen String zu zählen und weiß aber nicht genau wie ich dann bei dem String alles entferne von hinten bis zum Punkt (BSP : test.txt ----> test)


Bis jetzt siehts so bei mir aus :

Delphi-Quellcode:

function ChangeExtension(const filename, extension : string) : string;
var i : Integer;
begin
  for i:= Length(filename) downto 1 do

[mkinzler]

Chau dir Mal ChangeFileExt() an

[Klaus01]

Guten Morgen,

gibt es in Delphi 5 noch nicht die Routine changeFileExt?

Grüße
Klaus

[Back2Code]

Zitat von mkinzler:

Chau dir Mal ChangeFileExt() an

Erstmal gehts ja nur um einen String. Sprich, rückwärts einen String zählen bis der erste Punkt kommt und dann ab da an alles entfernen.


bsp.

filename := dp.html;

(Funktion für das entfernen der Extension im String)

filename := dp;

[Klaus01]

fileName := changeFileExt(fileName,''); Grüße
Klaus

[mkinzler]

Hättest du die verlinkte Funktionsbeschreibung gelesen, hättest du gesehen, dass die Funktion genau das macht, was du willst!

[Back2Code]

Funktioniert super. Danke.

[Pentium 80486]

Zitat:

Erstmal gehts ja nur um einen String. Sprich, rückwärts einen String zählen bis der erste Punkt kommt und dann ab da an alles entfernen.

Könnte das bei einer .htaccess-Datei nicht zu einem Problem werden?

Außer Windows ist natürlich so klug, und merkt diese nicht sinnvolle Änderung und unterbindet sie.

[himitsu]

Windows?
ChangeFileExt ist 'ne reine Delphi-Funktion.

Und nein, ChangeFileExt, ExtractFileExt und Co. suchen jeweils den letzen Punkt im String.
Alles ab/nach diesem Punkt ist immer die Dateieindung.
Ob und was vor dem Punkt ist, ist vollkommen egal.

[Popov]

Zitat von Pentium 80486:

Könnte das bei einer .htaccess-Datei nicht zu einem Problem werden?

Windows kommt damit klar, aber der Explorer verhindert, dass du eine Datei ohne Dateinamen erstellst.