On Friday 27 July 2012 13:27:39 Christian Nobel wrote:
> Hi Martin.
>
> Project attached.
>
Below code works for me.
"
procedure tmainfo.opencsvfile(const sender: TObject);
var
y: integer;
begin
if tfiledialog1.execute(fdk_open) = mr_ok then
begin
application.beginwait;
try
y:= 0;
while y < 10 do begin
tedit2.text:='Post '+IntToStr(y)+' læst';
application.processmessages;
sleep(1000);
inc(y);
end;
[...]
finally
application.endwait;
end;
"
Martin
------------------------------------------------------------------------------
Live Security Virtual Conference
Exclusive live event will cover all the ways today's security and
threat landscape has changed and how IT managers can respond. Discussions
will include endpoint security, mobile security and the latest in malware
threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
_______________________________________________
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
