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);