letzten 4 ziffern vom string abschneiden

[Marcasso]

hallo, ich möchte, dass beim abspielen eines mp3 das albumcover geöffnet wird,
dies hab ich so geamcht, dass es vorher unter dem liednamen gespecihert wird,
das aufrufen sollte dann so erfolgen :

Delphi-Quellcode:

   form1.bild.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + '/bild/' + extractfilename(form2.ListA.Items.Strings[form2.listA.itemindex]));

jedoch muss ich an dem string noch die letzten 4 stellen abschneiden, da das die endung .mp3 vom liednamen ist...
wie kann ich das realisieren?lg marc

[omata]

Schau dir mal ChangeFileExt an.

Oder...

Delphi-Quellcode:

  Copy(dateiname, 1, length(dateiname)-4);

Gruss
Thorsten

[oki]

Hi,

Delphi-Quellcode:

  MyString := Copy(MyString, 1, Length(MyString) -4);

Gruß oki

[Marcasso]

müsste ich es dann so schreiben?

Delphi-Quellcode:

form1.bild.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + '/bild/' + Copy(extractfilename(form2.ListA.Items.Strings[form2.listA.itemindex]), 1, length(extractfilename(form2.ListA.Items.Strings[form2.listA.itemindex]))-4));

[oki]

Hi,

mal getestet? :mrgreen: Ist immer der beste Weg.

Auch wenn es 'ne Zeile mehr ist, zerleg das Teil. So wird es übersichtlicher und du siehst auch noch nach einem halben Jahr durch

Gruß oki

[Marcasso]

also es kommt keine fehlermeldung, jedoch weir das bild nicht geladen /:

das problem liegt wohl woander, denn wenn ich den pfad direkt angebe lädt er das bild auch nicht

[marabu]

Hallo,

damit du auch noch morgen durchsteigst:

Delphi-Quellcode:

resourcestring
  S_IMAGE_FOLDER = 'BILDER';
var
  dir, fn: TFileName;
begin
  with Form2.ListA do
    fn := ExtractFileName(Items[ItemIndex]);
  dir := ExtractFilePath(Application.ExeName) + S_IMAGE_FOLDER;
  fn := IncludeTrailingPathDelimiter(dir) + ChangeFileExt(fn, '');
  form1.bild.Picture.LoadFromFile(fn);
end;

Grüße vom marabu

[Blackheart]

Siehe hier.
http://www.delphi-forum.de/viewtopic.php?t=69312 :wink: