41 lines
823 B
Plaintext
41 lines
823 B
Plaintext
/*
|
||
* $Id$
|
||
*/
|
||
|
||
//*******************************************************************
|
||
// sreader.prg: Az SREADER oszt ly implement ci¢ja.
|
||
// 1999, Csisz r Levente
|
||
|
||
//*******************************************************************
|
||
#include "objgen.ch"
|
||
|
||
#define _SREADER_PRG_
|
||
#define _IMPLEMENT_ONEW_
|
||
|
||
#include "sreader.och"
|
||
|
||
//*******************************************************************
|
||
|
||
implement oinit(str,name,errorStream)
|
||
super:oinit(name,errorStream)
|
||
this:str:=str
|
||
this:istr:=1
|
||
return this
|
||
|
||
//*******************************************************************
|
||
implement readItem()
|
||
local c
|
||
|
||
if (this:istr>len(this:str))
|
||
return nil
|
||
endif
|
||
|
||
c:=substr(this:str,this:istr,1)
|
||
this:istr:=this:istr+1
|
||
|
||
return c
|
||
|
||
//*******************************************************************
|
||
|
||
|