Resultado Debug

04/09/2019

10

Bom dia,

Veja só eu declarei umas variáveis no private

 private
    { Private declarations }
    H1,H2,H3,H4,S1,S2,S3,S4,F1,F2,F3,F4,Categ_, Tipo_, Cupom : String;
    VL_Ingresso : Real;
    ArqIni : Tinifile;
    TPImpressao : Boolean;
    PCadeira : TPanel;



Quando faço o Debug para verificar o valor das variaveis aparece assim:
S1 | { L"" }
F1 | { L"" }
H1 | { L"15:0" }


Sendo que o correto seria aparecer assim:
S1 =  ''01''
F1 = ''1''
H1 = ''15:00''


E outra tem alguns, algumas variáveis que eu coloco o cursor sobre ela e não aparece nada.
Tem mais, quando executo normal, da um erro de "Dataset not in edit or insert mode" MAS se eu for no DEBUG usando o F7 ou F8 não dá erro.

Será um bug?

Ia me esquecendo é o XE6
Responder

Posts

04/09/2019

Ricardo Araujo

Boa tarde,

precisa verificar com cuidado, vou adicionar o código que e deu certo, blz....


private
{ Private declarations }
H1, H2, H3, H4, S1, S2, S3, S4, F1, F2, F3, F4, Categ_, Tipo_,
Cupom: String;
public
{ Public declarations }

No OnCreate do formulário adicionei este código:

procedure TForm1.FormCreate(Sender: TObject);
begin
S1 := QuotedStr('01');
F1 := QuotedStr('01');
H1 := QuotedStr('15:00');
end;


Este código coloquei no Button pra testa, blz:

procedure TForm1.Button1Click(Sender: TObject);
var
StringBuilder: TStringBuilder;
begin
StringBuilder := TStringBuilder.Create;
try
StringBuilder.Append(S1);
StringBuilder.Append(F1);
StringBuilder.Append(H1);
ShowMessage(StringBuilder.ToString);
finally
FreeAndNil(StringBuilder);
end;
end;


Teste ai e depois manda um feedback blz.......





Responder

04/09/2019

Dirceu Morais

Boa tarde,

precisa verificar com cuidado, vou adicionar o código que e deu certo, blz....


private
{ Private declarations }
H1, H2, H3, H4, S1, S2, S3, S4, F1, F2, F3, F4, Categ_, Tipo_,
Cupom: String;
public
{ Public declarations }

No OnCreate do formulário adicionei este código:

procedure TForm1.FormCreate(Sender: TObject);
begin
S1 := QuotedStr('01');
F1 := QuotedStr('01');
H1 := QuotedStr('15:00');
end;


Este código coloquei no Button pra testa, blz:

procedure TForm1.Button1Click(Sender: TObject);
var
StringBuilder: TStringBuilder;
begin
StringBuilder := TStringBuilder.Create;
try
StringBuilder.Append(S1);
StringBuilder.Append(F1);
StringBuilder.Append(H1);
ShowMessage(StringBuilder.ToString);
finally
FreeAndNil(StringBuilder);
end;
end;


Teste ai e depois manda um feedback blz.......


Ô Ricardo obrigado pela tua ajuda,
Vou ver aqui se vai dar certo.

Não entendi direito como vai funcionar. E porque devo proceder dessa forma, visto que tenho outros aplicativos que funcionam bem.

Será alguma declaração que de alguma Unit?
Pq quando tento ver o valor colocando o cursor sobre a variável não aparece nada.
Quando pressione o CTRL+F7 na variável:
cdsEventosID_SALA.AsString |  E2247 '__tpdsc__ Data::Db::TField::AsString' is not accessible
stPrecoI.Value | E2247 '__tpdsc__ Rxcurredit::TCurrencyEdit::Value' is not accessible

Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira