Einen String "verkleinern"

[Klaus01]

schau Dir mal die Prozedur ChangeFileExt(const FileName, Extension: string): string; an
hier kannst Du als Extension auch '' eingeben, damit ist die Extension weg.


Ansonsten mit delete arbeiten. length bekommst Du die Stringlänge.
procedure Delete(var S: string; Index, Count:Integer); delete(AString,length(AString)-4,4)

Grüße
Klaus