showmessage('該會員代號已存在，不能重複新增。');
end;
procedure tform1.edit2keypress(sender: tobject; var key: char);
begin
if key=#13 then
button1.click;
end;
procedure tform1.button2click(sender: tobject);
begin
key:=grid.cells[1,grid.row];
if key='' then exit;
if inputquery('輸入','請輸入key值',key) then
if key<>'' then //如果輸入不為空則
if dict.containskey(key) then
begin
dict.remove(key);
grid.rows[strtoint(key)].clear;
tmygrid(grid).deleterow(strtoint(key));
end
else
showmessage('不存在');
end;
procedure tform1.button3click(sender: tobject);
begin
if inputquery('輸入','請輸入key值',key) then
if key<>'' then //如果輸入不為空則
if dict.containskey(key) then
showmessage(dict.items[key])
else
showmessage('不存在');
end;
procedure tform1.button4click(sender: tobject);
begin
dict.clear;
for r:=1 to grid.rowcount-1 do
grid.rows[r].clear;
grid.rowcount:=2;
end;
procedure tform1.button5click(sender: tobject);
vardict2:tdictionary;
n:byte;
begin
dict2:=tdictionary.create;
for r:=1 to grid.rowcount-2 do
if dict2.trygetvalue(grid.cells[2,r], n) then
dict2[grid.cells[2,r]]:= n+1
else
dict2.add(grid.cells[2,r], 1);
meo.clear;
for key in dict2.keys do
meo.lines.add(key+'，出現次數：'+inttostr(dict2.items[key]));
end;
procedure tform1.formactivate(sender: tobject);
begin
edit2.setfocus;
end;
procedure tform1.formcreate(sender: tobject);
begin
dict := tdictionary.create;
button1.caption := '新增';
button2.caption := '刪除';
button3.caption := '取值';
button4.caption := '清空';
edit1.text:='001';
edit2.text:='綠楊蔭裡';
Delphi2010 體驗國內首發
兩天前拿到了delphi2010的內測版光碟，然後裝上了試用，經過將近兩天的試用，感覺相當的棒 下面是體驗報告，希望起到拋磚引玉的作用。首先，大家可能會失望的是，內測版與d2009的內測版一樣，缺少很多元件 當然了，這只是給大家體驗用的，元件少一點沒關係。加上我在安裝時，沒有裝bde和dbx，元件就...
Delphi2010啟動報告錯誤的修復方法
不知道什麼原因我的delphi2010啟動的時候，報告乙個錯誤 is not a valid integer value.步驟 1.啟動delphi2010,然後就報告文章先前所說的錯誤。2.確定之後，仍然可以進入delphi2010，但不能建立任何project，開啟舊的project也報告同樣的...
ehlib v5 在delphi2010下的安裝
1.解除安裝老版本 2.建立目錄如 e ehlib5 3.把radstudio2010和common 資料夾下的檔案拷貝到 e ehlib5下 4.如需要，把e ehlib5加入到lib tools options delphioptions library win32 librarypath 5....