小弟在填寫資料庫的時候
會自動填寫本機電腦名稱
那電腦名稱很長 我想寫整段名稱中的其中一小段
該怎麼做呢?

假設我的電腦名稱
A1000-9701-PC
我希望只寫入9701
但我按照下面作法是寫入A1000-9701-PC 全名

[code delphi]
Params.ParamByName('PC_USER').AsString := StrPas(ComputerName);
[/code]

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var sl : Tstringlist;
begin
sl := Tstringlist.Create;
try
sl.Delimiter := '-';
sl.DelimitedText := 'A1000-9701-PC';
showmessage(sl[0]); // A1000
showmessage(sl[1]); // 9701
showmessage(sl[2]); // PC
finally
freeandnil(sl);
end;
end;
[/code]

------
努力會更接近成功

編輯記錄