各位先進好！ Q1： 我的程式運行後一直等待從串埠取數據後，如果在數據中發現's'並且在's'後面的數字多於10位後，停止這個LOOP, 請問如何寫要求's'後面的數字多於10位的條件 code如下： var buf:string;//從串埠接收的數據 ... repeat .... until (pos('s'，buf)>0) and (); //在 and 後如何寫要求's'後的數字多於10位的條件 Q2： 我用Edit1.text:=dateTimetostr（now）; 取回的時間格式是: 6/29/03 PM 1:37:44 請問用那個 function 可以變為如下格式: 2003-6-29 13:37:44

1.Length(buf) - Pos(s, buf) > 10 2.Edit1.Text := FormatDateTime('YYYY-MM-DD hh:nn:ss', Now)    --- 每個人都是一本書