-
explode на delphi/pascal
unit xplode;
{$R-,X+,V-}
interface
type
TArray = array of string;
function explode(separator, str : string) : TArray;
function explode1(separator, str : string) : TArray;
var
lmax:cardinal;
Rezult:tarray;
implementation
uses StrUtils;
function explode;
var
len,l0,l1,mizer,pp : cardinal;
i : cardinal;
begin
mizer:=1000;SetLength( ( Read more... ) -
(Untitled)
голова моя
как птица
улетит
в небесный край
её ты
иди искай -
подстольные чтения
залезь под стол
и сказки почитай
забудь о том,
кто ты
и сколько тебе лет
детей,
коль есть они,
хватай
и вместе с ними
под столом валяйся
и сказочки читай
