text.endung wie krieg ich den text raus

[pacman1986]

hilfe leute blackout... wie krieg ich den text raus

[konda]

Wie meinst du das?

[Sharky]

Hai pacman1986,

ich denke schon das man verlangen kann das jeder hier seine Fragen so formuliert das sie jeder verstehen bzw. erkennen kann.

Einfach eine Frage "hin knallen" ist nicht gerade sehr höflich.

[pacman1986]

einen dateinamen herausfinden und dabei die endung nicht beachten.

statt bild.jpg einfach nur bild

ich denke da gibt es doch eine vorgefertigte funktion oder ?
eine eigene sehe so unsauber aus

tschuldigung für meine Formulierung

[Die Muhkuh]

Hi,

ich weiß was er will...

Delphi-Quellcode:

function FileNameWithoutExt(const FileName: String): String;
var
  I, iPos: Integer;
  S: String;
begin
  S := ExtractFileName(FileName);

  for I := Length(S) downto 1 do
  begin
    if S[I] = '.' then 
    begin 
     iPos := I;
     Break;
    end;
  end;

  Result := Copy(S, 1, iPos);
end;

Is jetzt außem Kopf raus.

[Nils_13]

ExtractFileName müsste reichen.

[Die Muhkuh]

Zitat von Nils_13:

ExtractFileName müsste reichen.

Dann haste aber Datei.Ext

[xaromz]

Hallo,
FileName := ChangeFileExt(FileName, ''); SysUtils einbinden nicht vergessen.

Gruß
xaromz

[leddl]

Oder zB so:
text := Copy(filename,1,Pos(ExtractFileExt(filename),filename)-1)

[pacman1986]

danke xaromz das ist ne gute idee

@Spider die hat ich bisher auch , dachte aber das es irgendwie eine vorgefertigte gibt