Hallo Patrick,
Du schriebst am Mon, 03 Jun 2013 09:25:31 -0400:
> var
> fsfile : tfilestream;
> s1, s2 : string;
> begin
...
> str (position, s1); // get the stream position
> str (size, s2); // get the stream size
> showmessage ('file stream position, size: ' + s1 + ', ' + s2);
...
BTW, an aside question: why use these two explicit intermediary string
variables? They're created implicitly anyway, so why not use them directly:
showmessage ('file stream position, size: ' +
IntToStr (position) + ', ' + IntToStr (size));
?
Don't you have the IntToStr function available, or does the compiler
produce too bad code then?
(The result should be aboutthe same, I think, but the inlined version might
look a bit clearer.)
--
(Weitergabe von Adressdaten, Telefonnummern u.ä. ohne Zustimmung
nicht gestattet, ebenso Zusendung von Werbung oder ähnlichem)
-----------------------------------------------------------
Mit freundlichen Grüßen, S. Schicktanz
-----------------------------------------------------------
------------------------------------------------------------------------------
How ServiceNow helps IT people transform IT departments:
1. A cloud service to automate IT design, transition and operations
2. Dashboards that offer high-level views of enterprise services
3. A single system of record for all IT processes
http://p.sf.net/sfu/servicenow-d2d-j
_______________________________________________
mseide-msegui-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
