某个edit框中若有“真”字，则

Question

在保存数据之前，当用户录入所有内容后，在提交的时候，自动识别，若edit1框中若有“真”字，则，bzw=2，若没有，则bzw=1，
然后执行保存这条记录，同时把bzw的值也保存进去到数据库里bzw的字段中。

Answer 1

先用copy或pos方法去取這個edit中的這個“真”字；定義一個boolean,當返回為true時，則update bzw=2;否則false時，直接bzw=1...

Answer 2

先用copy或pos方法去取這個edit中的這個“真”字；定義一個boolean,當返回為true時，則update bzw=2;否則false時，直接bzw=1...

Answer 3

var T:boolean;
    i:integer;
begin
  T:=False;
  for i:=1 to Length(Edit1.text)-1 do
    if Copy(Edit1.text,i,2)='真'
      then T:=True;
  if T then bzw=2
       else bzw=1;
end;

Answer 4

bzw := 1;
if Pos('真', edit1.text) > 0 then bzw := 2;