Delphi初心者のための寺子屋

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

18:デフォルトの名無しさん
05/11/28 16:40:00
>>13
program Project1;

{$APPTYPE CONSOLE}

uses
　　　　SysUtils, Types, MMSystem;

const
　　　　str='Delphi=399,000YEN';

var
　　　　i:　　　　Integer;
　　　　len:　　　　Integer;
　　　　StartTime:　　　　DWORD;
　　　　EndTime:　　　　DWORD;

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

　　　　Write('は');
　　　　Inc(i);

次ページ

続きを表示

1を表示