3,099
Hi
If found i want to exit from loop . Secondly i have taken found as Text. I want to take it as Boolean then how to check True or False condition
Share
Report WHILE Ctr <= 10 DO BEGIN
IF GLEntry."G/L Account Name" = AccountName[Ctr] THEN BEGIN
AccountValue[Ctr] += GLEntry.Amount;
found := 'TRUE';
END;
Ctr := Ctr + 1;
END;
Thanks
*This post is locked for comments
Hi
Where have you written this code?
You'll need to write a GLEntry.find or findfirst statement after the following line
IF NOT found THEN BEGIN
Hi
Before the loop i have initialized as
found := FALSE;
Secondly when i display message MESSAGE('%1',GLEntry."G/L Account Name"); in the loop it shows blank
Thanks
make found := false; between while condition line and IF condition line
Hi
When i display found value it shows Yes always
Thanks
Hi
Why it is not going in If not found condition
Thanks
Hi.
You can define Found as boolean variable and try below code
WHILE Ctr <= 10 DO BEGIN
IF GLEntry."G/L Account Name" = AccountName[Ctr] THEN BEGIN
AccountValue[Ctr] += GLEntry.Amount;
found := TRUE;
IF found = TRUE then
EXIT;
END;
Ctr := Ctr + 1;
END;
Hi
NOt going in if not foundcondition
found := False;
All responses (
Answers (
WHILE (Ctr <= 10) DO BEGIN
IF GLEntry."G/L Account Name" = AccountName[Ctr] THEN BEGIN
AccountValue[Ctr] += GLEntry.Amount;
found := TRUE;
END;
Ctr := Ctr + 1;
END;
IF NOT found THEN BEGIN
AccountName[g_ctr] := GLEntry."G/L Account Name";
AccountValue[g_ctr] := GLEntry.Amount;
g_ctr := g_ctr + 1;
MESSAGE('%1','in');
END;
Thankss
try this code. I didnt test
WHILE (Ctr <= 10) OR found DO BEGIN
IF GLEntry."G/L Account Name" = AccountName[Ctr] THEN BEGIN
AccountValue[Ctr] += GLEntry.Amount;
found := TRUE;
END;
Ctr := Ctr + 1;
END;
found is boolean type
