value return empty

Comments

• Anu de Deus Hampshire, UK

  January 2010 edited 1:21PM

  I suppose <fot1> is a string too, right?
  I don't have the solution, but I can help you to debug it, try isolating the string with the filename and check it first:
  try this:
  

  var FullPath: string;
  procedure Picture4OnBeforePrint(Sender: TfrxComponent);
  var        
  vF1:String;    
  begin
   vF1:=<Termografia_sub."Foto2">;  
   FullPath := <Fot1>+vf1;  << if you get a script error here, you know that something is wrong with <Fot1>
   showmessage(FullPath);
   if FileExists(FullPath) then     
     picture4.picture.loadfromfile(FullPath)
   else
    showmessage("Cant find file: " +FullPath);
  end;
  

  
  
  
• mflopes

  January 2010 edited January 2010

  Yes it??s a string but if the field dosent have nothing it get s a Error ?? hou can i bypass that?
  
  vF1:=<Termografia_sub."Foto2"> ( C:\car.jpeg) = OK
  vF1:=<Termografia_sub."Foto2"> ( " " ) = error ? and i have to insert a Picture..
  
  Im i clear???
  
  Thank??s
• gordk St.Catherines On. Canada.

  January 2010 edited 1:21PM

  just as Anu showed you
  run a filexists test on the string if file does not exist do something else.
  BTW you must have created a filexists function to be able to use it.
• Anu de Deus Hampshire, UK

  January 2010 edited 1:21PM

  mflopes wrote: »

  vF1:=<Termografia_sub."Foto2"> ( " " ) = error ? and i have to insert a Picture..

  
  if Length(trim(vF1)) <1 then
  vF1 := 'C:\YourDefaultPicture.bmp';