Delphi初心者のための寺子屋

Delphi初心者のための ..

22:デフォルトの名無しさん
05/11/29 09:01:26
>>20
program Project1;

{$APPTYPE CONSOLE}

uses
　　　　SysUtils;

var
　　　　i, j:　　　　Integer;
　　　　len:　　　　Integer;

　　　　StartTime: TDateTime ;
　　　　EndTime: TDateTime ;

　　　　Hour, Min, Sec, MSec: Word;

　　　　str:　　　　String;
begin

　　　　Readln(str);

　　　　StartTime:=Now;

　　　　len:=Length(str);

　　　　i:=1;
　　　　while str[i]<>'=' do
　　　　begin
　　　　　　　　Write(str[i]);
　　　　　　　　Inc(i);

次ページ