- 32 名前：デフォルトの名無しさん mailto:sage [2005/11/30(水) 17:12:15 ]
- >>24
結果をまとめて表示、GUIをやりました
よろしくお願いします
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
len: Integer;
StartTime: TDateTime ;
EndTime: TDateTime ;
Hour, Min, Sec, MSec: Word;
str_src: String;
str_dest: String;
begin
str_src:=Edit1.Text;
StartTime:=Now;
len:=Length(str_src);
if len=0 then
begin
ShowMessage('なにか文字を入力してください');
exit;
end;
i:=1;
while str_src[i]<>'=' do
begin
str_dest:=str_dest+str_src[i];
Inc(i);
