Resultado Debug
04/09/2019
0
Bom dia,
Veja só eu declarei umas variáveis no private
Quando faço o Debug para verificar o valor das variaveis aparece assim:
Sendo que o correto seria aparecer assim:
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
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
Dirceu Morais
Curtir tópico
+ 0
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.......
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.......
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
Clique aqui para fazer login e interagir na Comunidade :)