home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pcmagazi
/
1992
/
19
/
ustring.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-05-24
|
1KB
|
47 lines
PROGRAM UString;
USES WinCrt, OString, EString;
VAR
PO : TOString;
PE : TEString;
OldLen : Word;
BEGIN
PO.Init(300);
PO.AddPChar('I am a TOString. ');
PO.AddPChar('The value of pi is: ');
PO.AddReal(pi, 1, 5);
PO.NewLine;
PO.AddPChar('My own address is: ');
PO.AddHexWord(Seg(PO));
PO.AddPChar(':');
PO.AddHexWord(Ofs(PO));
PO.NewLine;
REPEAT
OldLen := PO.Len;
PO.AddPChar('Adding too much text, ');
PO.AddPChar('line after line after line!');
PO.NewLine;
UNTIL OldLen = PO.Len;
WriteBuf(PO.GetPChar, PO.Len);
WriteLn;
WriteLn;
PO.Clear;
PO.AddPChar('Adding too much text, ');
PO.AddPChar('line after line after line!');
PO.NewLine;
PE.Init(300);
PE.AddPChar('I am an expandable TOString - a TEString');
PE.NewLine;
REPEAT
PE.AddOString(PO);
UNTIL PE.GetExcess > 0;
IF PE.ExpandTo(400) THEN
BEGIN
PE.AddPChar('I ran out of space, so I expanded ');
PE.AddPChar('to make more room!');
PE.NewLine;
END;
WriteBuf(PE.GetPChar, PE.Len);
PO.Done;
PE.Done;
END.