时间戳

首页 > 解决方案 > ; 预期但一切都是正确的

delphi - ; 预期但一切都是正确的

问题描述

我正在编写我的第一个 delphi 脚本，当我想运行它时，有一个 '; 预期的错误，但我不知道为什么。当我单击错误时，光标会跳到出现错误的位置，但那是代码末尾下方的两行有什么问题？

var   
   stringName : String;
   stringBase : String;         

procedure setPicturePath();
var      
    qryPicEncode : TOraQuery;
    qryPicDecode : TOraQuery; 
begin
    qryPicEncode := TOraQuery.Create(nil);
    qryPicEncode.SQL.Text := 'select ''utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw("werner weilenmann"))) from dual';
    qryPicDecode := TOraQuery.Create(nil);
    qryPicDecode.SQL.Text := 'select ''utl_raw.cast_to_varchar2(utl_encode.base64_decode(utl_raw.cast_to_raw("d2VybmVyIHdlaWxlbm1hbm4="))) from dual';                                                    

    qryPicEncode.open;
    qryPicEncode.first;
    if not(qryPicEncode.eof) then begin
        stringName := qryPicEncode.fieldByName('pic4Path').AsString;
    end;
    qryPicDecode.open;
    qryPicDecode.first;
    if not(qryPicDecode.eof) then begin
       stringBase := qryPicDecode.fieldByName('ODACQuery1').AsString;
    end;
    qryPicEncode:=nil;              
    qryPicDecode:=nil;                                         
end;  


begin
    //Picture2.LoadFromFile('U:\Documents\logos\logo1.png');              
    setPicturePath();
    showmessage(stringName);
    showmessage(stringBase);          
end.

标签： delphisyntax

解决方案

似乎您的开始/结束有一些错误。

这里：

begin
    setPicturePath();
    showmessage(qryPicEncode);
    showmessage(qryPicDecode);                                      
end;

您指的是过程的局部变量-qryPicEncode 但是setPicturePath();此代码块在它之外...

格式化源代码以显示错误

推荐阅读