Delphi初心者のための寺子屋

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

40:デフォルトの名無しさん
05/12/01 14:08:14
>>34の１
begin
　　　　str_src:=Edit1.Text;
　　　　StartTime:=Now;

　　　　len:=Length(str_src);
　　　　eq_pos:=pos('=', str_src);

　　　　if len=0 then
　　　　begin
　　　　　　　　ShowMessage('なにか文字を入力してください');
　　　　　　　　exit;
　　　　end;
　　　　if eq_pos=0 then
　　　　begin
　　　　　　　　ShowMessage('=が見つかりませんでした');
　　　　　　　　Exit;
　　　　end;

　　　　str_dest:=copy(str_src, 1, eq_pos-1);
　　　　str_dest:=str_dest+'は';
　　　　str_dest:=str_dest+copy(str_src, eq_pos+1, High(Integer));
　　　　str_dest:=str_dest+'です';

　　　　EndTime:=Now;
　　　　DecodeTime(EndTime-StartTime, Hour, Min, Sec, MSec);
　　　　Memo1.Lines.BeginUpdate;
　　　　Memo1.Lines.Add(str_dest);
　　　　Memo1.Lines.Add(Format('%u時間 %u分 %u秒 %u', [Hour,Min,Sec,MSec]));
　　　　Memo1.Lines.EndUpdate;
end;

次ページ

続きを表示

1を表示