Delphi-Quellcode:
procedure Bilderladen;
var str,Dateiname,Unterordner,Dateinameohneendung:string;
begin
Dateiname:=clientdataset1.FieldByName('Dateiname').AsString;
Unterordner:=clientdataset1.FieldByName('Unterordner').AsString;
Dateinameohneendung:= Copy (Dateiname, 1, Length (Dateiname) - 4);
image1.Picture.LoadFromFile(edit1.Text+Unterordner+Dateinameohneendung+'_vorschau1.jpg');
image2.Picture.LoadFromFile(edit1.Text+Unterordner+Dateinameohneendung+'_vorschau2.jpg');
end;
Die fehler:
Delphi-Quellcode:
[Error] Unit1.pas(68): Undeclared identifier: 'clientdataset1'
[Error] Unit1.pas(68): Missing operator or semicolon
[Error] Unit1.pas(68): Missing operator or semicolon
Die Erläuterung:
Den Inhalt der Procedure bekomme ich nicht zum laufen. Ganau der selbe inhalt der Procedure läuft in einem Button
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var str,Dateiname,Unterordner,Dateinameohneendung:string;
begin
clientdataset1.Next;
Dateiname:=clientdataset1.FieldByName('Dateiname').AsString;
Unterordner:=clientdataset1.FieldByName('Unterordner').AsString;
Dateinameohneendung:= Copy (Dateiname, 1, Length (Dateiname) - 4);
image1.Picture.LoadFromFile(edit1.Text+Unterordner+Dateinameohneendung+'_vorschau1.jpg');
image2.Picture.LoadFromFile(edit1.Text+Unterordner+Dateinameohneendung+'_vorschau2.jpg');
end;
Un da funktioniert es komischer weise. Was mache ich bei meiner Procedure falsch ?
danke schon mal für die Hilfe