Delphi初心者のための寺子屋

Delphi初心者のための ..

44:デフォルトの名無しさん
05/12/01 22:23:51
>>34の３
　　　　PSrc:=AllocMem(len+1);
　　　　PSrcCopy:=PSrc;
　　　　ZeroMemory(PSrc, len+1);

　　　　for i:=1 to len do
　　　　begin
　　　　　　　　PSrc[i-1]:=str_src[i];
　　　　end;

　　　　while PSrc^ <> #0 do
　　　　begin
　　　　　　　　if PSrc^ = '=' then
　　　　　　　　begin
　　　　　　　　　　　　str_dest:=str_dest+'は';
　　　　　　　　end
　　　　　　　　else
　　　　　　　　begin
　　　　　　　　　　　　　　　　str_dest:=str_dest+PSrc^;
　　　　　　　　end;
　　　　　　　　Inc(PSrc);
　　　　end;
　　　　str_dest:=str_dest+'です';
　　　　FreeMem(PSrcCopy, len+1);

次ページ