Forum: Object-Pascal / Delphi-Language
Delphi
by MaToBe,
17. Nov 2008
//Bilder laden
procedure TForm1.btnBildLadenClick(Sender: TObject);
begin
if openPictureD.Execute then
begin
imgBild.Picture.LoadFromFile(openPictureD.FileName);
sgDaten.Cells := inttostr(clbBilder.Count);
sgDaten.Cells := ExtractFileName(openPictureD.FileName);
sgDaten.Cells := ExtractFilePath(openPictureD.FileName) + ExtractFileName(openPictureD.FileName);
...
Forum: Object-Pascal / Delphi-Language
Delphi
by MaToBe,
17. Nov 2008
Hallo liebe DPler,
Dies ist mein Code:
//Bilder laden
procedure TForm1.btnBildLadenClick(Sender: TObject);
begin
if openPictureD.Execute then
begin
imgBild.Picture.LoadFromFile(openPictureD.FileName);
sgDaten.Cells := inttostr(clbBilder.Count);