Delphi初心者のための寺子屋

Delphi初心者のための ..

32:デフォルトの名無しさん
05/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);

次ページ