Dunia Komputer

Mungkin sebagaian orang dulunya berkata saya paling pintar masalah komputer, tetapi apakah sampai saat ini dia bisa berkata begitu? jika sampai saat ini di masih mampu mengikuti setiap perkembangan komputer maka dia adalah orang yang paling rajin belajar. tapi lain halnya buat dia yang mengembangkan teknologi komputer, mereka harus berlomba dengan zaman untuk dapat menciptakan teknologi komputer yang lebih canggih dan dapat memenuhi kebutuhan manusia. untuk menjadi ahli dalam bidang komputer maka diperlukan seumur hidup kita untuk belajar, karena mungkin sekarang kita belajar bahasa C++ maka akan muncul bahasa lainnya yang baru.

Penomoran Otomatis Delphi 07

var kd,st,newKd:string;
i,n:integer;
....
ADOTable1.Last;
if not(ADOTable1.eof and ADOTable1.Bof) then
begin
kd:=ADOTable1.FieldByName('kode').AsString;
// auto generate
for i:=1 to 2 do
st:=st+kd[i+1];
n:=strtoint(st)+1;
case length(inttostr(n)) of
1 : newKd:='K0'+inttostr(n);
2 : newKd:='K'+inttostr(n);
end;
end
else newKd:='K01';
Edit1.Text:=newKd;