请帮忙看看第三个问题！其他的已经解决！谢谢！ (50分)

1、将当前时间转换为字符串（HHMMSS）赋值给.dbf表a的字段sj；
2、将当间时间转换为字符串（YYYYMMDD）与edit.text中的内容合并一起赋值给.dbf表a的字段xh；
3、取a中字段xh的前6位等于xxxxxx的记录的字段xh的后8位加1赋给字段xh；

其中字段sj、xh是字符类型。
使用的是table组件。

table1.fieldvalues['sj']:=？
table1.fieldvalues['xh']:=？
请问如何写？另外谁能推荐一本好的学习delphi的书！
谢谢！

把当前日期转换成字符串：FormatDateTime("yyyymmdd",Date())
把当前时间转换成字符串：FormatDateTime("hhmmss",Time())
table1.fieldvalues['sj']:=FormatDateTime("yyyymmdd",Date())+edit.text

table1.FieldByName('sj').AsString := TimeToStr(Now); //时间
table1.FieldByName('xh').AsString := DateToStr(Now); //日期

Delphi5 使用指南

FormatDateTime('yyyyMMdd',Now)
FormatDateTime('hhmmss',Now)

table1.FieldByName('sj').AsString := TimeToStr(Now); //时间
table1.FieldByName('xh').AsString := DateToStr(Now); //日期

KAO
搞了半天你的字段都是什么类型的?

table1.fieldvalues['sj']:=FormatDateTime("yyyymmdd",Date())+edit.text
编译有错：[Error] rgbp.pas(194): Illegal character in input file: '"' ($22)
我的程序如下：
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
if radiogroup1.items[radiogroup1.ItemIndex]='自动生成' then
edit12.enabled:=false;
table1.locktable(ItWriteLock); //184
table1.Insert;
table1.FieldValues['wtgddm']:=edit8.text;
table1.FieldValues['wtzqdm']:=edit9.text;
table1.FieldValues['wtwtsl']:=edit10.text;
table1.FieldValues['wtwtjg']:=edit11.text;
table1.FieldValues['wtywlb']:=radiogroup2.items[radiogroup2.ItemIndex];
table1.FieldValues['wtclbz']:='z';
table1.FieldValues['wtwtsj']:=FormatDateTime("hhmmss",Time()); //192
if radiogroup1.items[radiogroup1.ItemIndex]='自动生成' then
table1.FieldValues['wthtxh']:=edit7.text+FormatDateTime("yyyymmdd",Date())+inttostr(lsh); //194
table1.post;
table1.unlocktable(itwritelock);
lsh:=lsh+1;

end;//lsh为integer类型，全局变量。
编译错误是：
[Error] rgbp.pas(184): Undeclared identifier: 'ItWriteLock'
[Error] rgbp.pas(192): Illegal character in input file: '"' ($22)
[Error] rgbp.pas(194): Illegal character in input file: '"' ($22)
[Fatal Error] Project1.dpr(5): Could not compile used unit 'rgbp.pas'
大家帮忙看一下。

192行應為：
table1.FieldValues['wtwtsj']:=FormatDateTime('hhmmss',Time()); //192
194行應為
table1.FieldValues['wthtxh']:=edit7.text+FormatDateTime('yyyymmdd',Date())+inttostr(lsh); //194
注：將上述兩行雙引號改為單引號。

補充：
184行應為
table1.locktable(LtWriteLock); //184
即將ItWriteLock改為LtWriteLock.你前一個字母寫錯。

谢谢！通过！
请帮忙看看第三个问题！
3、取a中字段xh的前6位等于xxxxxx的记录的字段xh的后8位加1与edit.text的内容合并赋给字段xh；(这个
问题是不是要得用query组件？用table组件可以吗？怎么写？）；

多人接受答案了。