pfadangabe wie bei html

[vamp79]

@Sharky:
ich habs ausprobiert, funtioniert aber irgendwie nicht.

@Christian Seehase:
Hab ich nicht wirklich verstanden was du jetzt meinst, sorry

vielleicht könnt ihr mir das anhand meines quelltextes beschreiben:

ich hab die ganzen DBEdit´s, Label´s usw, mal weggelassen

Delphi-Quellcode:

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
If OpenPictureDialog1.Execute then Begin

Table1.Edit;          
Table1.FieldbyName('Bild1').AsString:=OpenPictureDialog1.Filename;
Table1.Post;
End;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('G:\Bilder\bla.jpg');
end;

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
 image1.picture := nil;
  if  not table1.FieldByName('Bild1').IsNull  then
      if  FileExists(table1.FieldByName('Bild1').AsString) then
          image1.Picture.LoadFromFile(table1.FieldByName('Bild1').AsString);

 image2.picture := nil;
  if  not table1.FieldByName('Bild2').IsNull  then
      if  FileExists(table1.FieldByName('Bild2').AsString) then
          image2.Picture.LoadFromFile(table1.FieldByName('Bild2').AsString);

  image3.picture := nil;
  if  not table1.FieldByName('Bild3').IsNull  then
      if  FileExists(table1.FieldByName('Bild3').AsString) then
          image3.Picture.LoadFromFile(table1.FieldByName('Bild3').AsString);

  image4.picture := nil;
  if  not table1.FieldByName('Bild4').IsNull  then
      if  FileExists(table1.FieldByName('Bild4').AsString) then
          image4.Picture.LoadFromFile(table1.FieldByName('Bild4').AsString);

  image5.picture := nil;
  if  not table1.FieldByName('Bild1').IsNull  then
      if  FileExists(table1.FieldByName('Bild1').AsString) then
          image5.Picture.LoadFromFile(table1.FieldByName('Bild1').AsString);

  image6.picture := nil;
  if  not table1.FieldByName('Bild2').IsNull  then
      if  FileExists(table1.FieldByName('Bild2').AsString) then
          image6.Picture.LoadFromFile(table1.FieldByName('Bild2').AsString);

  image7.picture := nil;
  if  not table1.FieldByName('Bild3').IsNull  then
      if  FileExists(table1.FieldByName('Bild3').AsString) then
          image7.Picture.LoadFromFile(table1.FieldByName('Bild3').AsString);

  image8.picture := nil;
  if  not table1.FieldByName('Bild4').IsNull  then
      if  FileExists(table1.FieldByName('Bild4').AsString) then
          image8.Picture.LoadFromFile(table1.FieldByName('Bild4').AsString);

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
If OpenPictureDialog2.Execute then Begin

Table1.Edit;
Table1.FieldbyName('Bild2').AsString:=OpenPictureDialog2.Filename;
Table1.Post;
End;
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
Image2.Picture.LoadFromFile('G:\Bilder\bla.jpg');
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
Image3.Picture.LoadFromFile('G:\Bilder\bla.jpg');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
If OpenPictureDialog3.Execute then Begin

Table1.Edit;
Table1.FieldbyName('Bild3').AsString:=OpenPictureDialog3.Filename;
Table1.Post;
End;
end;

procedure TForm1.Image4Click(Sender: TObject);
begin
Image4.Picture.LoadFromFile('G:\Bilder\bla.jpg');
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
If OpenPictureDialog4.Execute then Begin

Table1.Edit;
Table1.FieldbyName('Bild4').AsString:=OpenPictureDialog4.Filename;
Table1.Post;
End;
end;

procedure TForm1.Image5Click(Sender: TObject);
begin
Image5.Picture.LoadFromFile('G:\Bilder\bla.jpg');
end;

procedure TForm1.Image6Click(Sender: TObject);
begin
Image6.Picture.LoadFromFile('G:\Bilder\bla.jpg');
end;

procedure TForm1.Image7Click(Sender: TObject);
begin
Image7.Picture.LoadFromFile('G:\Bilder\bla.jpg');
end;

procedure TForm1.Image8Click(Sender: TObject);
begin
Image8.Picture.LoadFromFile('G:\Bilder\bla.jpg');
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Table1.Insert
end;

end.


nachher sollte das dann so etwa aussehen

procedure TForm1.Button2Click(Sender: TObject);
begin
If OpenPictureDialog1.Execute then Begin

speicher das bild in G:\bilder                     (hierfür brauch ich den quelltext)
 und trage G:\bilder\ausgewähtes_foto.jpg in tabele ein                   (hierfür brauch ich den quelltext)

Table1.Edit;          
Table1.FieldbyName('Bild1').AsString:=OpenPictureDialog1.Filename;
Table1.Post;
End;
end;

danke
vamp79


[edit=Daniel B]Delphi-Tags; MfG Daniel B.[/edit]