String replace, getParam 함수
procedure replace(var source : string; find, repl : string); var ind : integer; begin ind := pos(find, source); if ind > 0 then begin source := copy(source, 1, ind-1) + repl + copy(source, ind + length(find), 10000); replace(source, find, repl); end end; 사용법은 replace(str,'메롱','하이'); ShowMessage(str); function GetParam(str : string; index : integer) : string; var i, count : integer; tmp : string;..
2008. 8. 13.