Zurück   PixAndMore - Support Forum > Programmierung > Skripte

Antwort
 
Themen-Optionen Ansicht
  #1  
Alt 09.09.2009
Benutzerbild von Kai
Kai Kai ist offline
Imabas-Entwickler
Admin
Obertroll
Registriert seit: 11.2003
Ort: Holzwickede
Beiträge: 2.756
Kai befindet sich auf einem aufstrebenden Ast
Standard Erweiterung (.tif) aus Bezeichnung entfernen

Aktionstyp: Liste mit Bildern

Hiermit kann man für alle im Browser markierten Bilder die Erweiterung aus der Bezeichnung entfernen:

Code:
function PerformAction(Images: TICollection): Boolean;
var
   i, p: Integer; caption: String;
begin
   Result := True;
   
   for i := 0 to Images.Count-1 do begin
      caption := Images[i].Caption;
      p := Pos('.', caption);
      if ( p > 0 ) then begin
         caption := Copy(caption,1,p-1);
         Images[i].Caption := caption;
         Images[i].Update;
      end;
   end;

end;
__________________
Mit freundlichen Grüßen
Kai Brendel
http://www.pixandmore.com
Mit Zitat antworten
Antwort
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Gehe zu

Ähnliche Themen
Thema Autor Forum Antworten Letzter Beitrag
Bezeichnung der EXIF Parameter anpassen? K-Bajonett Imabas Allgemein 7 03.01.2008 12:52


Powered by vBulletin® Version 3.7.1 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.