> FutureValue ! :))) MagicValue :) OneKnowsValue :) OnlineValue :)
> Pendingvalue :)
>
Just checked in the below code, all "s1" are '' on Post-ing after
appending a record, field's OnValidate:
procedure tmainfo.unitnamevalidate(Sender: TField);
var
s1: msestring;
i1: integer;
begin
with sender,lbufUnits do begin
s1:= vartostr(newvalue);
s1:= vartostr(value);
s1:= vartostr(curvalue);
s1:= vartostr(oldvalue);
// if lookuptext(0,0,msestring(newvalue)) <> '' then begin
if find(0,vartostr(value),i1,true,nil) then begin
value:= newvalue;
showmessage('Such unit name is already registered');
end;
end;
end;
------------------------------------------------------------------------------
Keep Your Developer Skills Current with LearnDevNow!
The most comprehensive online learning library for Microsoft developers
is just $99.99! Visual Studio, SharePoint, SQL - plus HTML5, CSS3, MVC3,
Metro Style Apps, more. Free future releases when you subscribe now!
http://p.sf.net/sfu/learndevnow-d2d
_______________________________________________
mseide-msegui-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
