TStream.GetPos
Return current position in the stream
Declaration
Source position: objects.pp line 315
default
function GetPos : LongInt; Virtual;
Description
If the stream's status is stOk, GetPos returns the current position in the stream. Otherwise it returns -1
Errors
-1 is returned if the status is an error condition.
See also
| Name | Description |
|---|---|
| TStream.GetSize | Return the size of the stream. |
| TStream.Seek | Set stream position. |
Example
Program ex11;
{ Program to demonstrate the TStream.GetPos function }
Uses objects;
Var L : String;
S : PStream;
begin
L:='Some kind of string';
S:=New(PMemoryStream,Init(100,10));
Writeln ('Stream position before write: ',S^.GetPos);
S^.WriteStr(@L);
Writeln ('Stream position after write : ',S^.GetPos);
Dispose(S,Done);
end.