letzten 4 ziffern vom string abschneiden

[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