Delphi初心者のための寺子屋

Delphi初心者のための寺子屋 at TECH

46:デフォルトの名無しさん
05/12/01 23:10:52
>>45
了解です。修正しました。
PCharとStringの変換が意外と楽で感激
　　　　PSrc:=PChar(str_src);
　　　　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+'です';

次ページ

続きを表示

1を表示