xFrankx - Fr 28.08.09 16:49
Titel: Datei Namen für DBank

---

Hallo,
ich habe mir schon einige Sachen hier im Forum über die Suchfunktion gesammelt.
Zb. auch dies womit ich ein Bild in eine Table speichern kann. Geht echt super.!
Nun möchte ich aber den Datei Namen des Bildes extra speichern.
Beim Abspeichern auf Platte brauche ich den Original Namen wieder.
Mit OpenPicture.FileName bekomme ich ja den ganzen Pfad.
zb.
C:\Programme\MeineBilder\meinpic.jpg

Muss ich mir jetzt den string zerlegen bis ich nur noch 'meinpic.jpg' habe, oder gehts auch anderes ?



if Edit38.Text <> '' then
begin
Table1.Edit;
Try
(Table1.FieldByName('DB_Bild') as TBLobField).LoadFromFile(Edit38.Text);
Table1.FieldByName('DB_Bild_Info').AsString:= 'Bild';
Table1.FieldByName('DB_Datei_Name').AsString:= 'meinpic.jpg'; <-----
Table1.Post;
Edit38.Text:= '';
Finally
end;
end else
begin
ShowMessage('Bitte erst Bild laden.!');
end

xFrankx - Fr 28.08.09 17:38

---

Bitte Close...



Ich habe es so hinbekommen und es geht auch, mehr wollte ich gar nicht


if OpenPicture.Execute then
str:= OpenPicture.FileName;
for i:= 0 to length(str)-1 do
begin
if str[i+1] = '\' then
begin
x:= i;
end;
end;
Delete(str,1,x+1);
edit35.Text:= str;




mfg

Robert.Wachtel - Fr 28.08.09 17:50

---

Mit ExtractFileName und Konsorten wäre es etwas eleganter gewesen... :mrgreen: