работа со строками в бд

[Nikai]

Доброго времени суток, форумчане!!
Вот такая проблема:мне нужно сделать проверку,имеется ли вторая точка в строке и если имеется,то сравнить знак до точки со знаком из другой строки после 2-го пробела.Вот собственно код:

if pos('.',delete(datamodule3.employeestable1.fieldbyname('fio').asstring,1,pos('.',datamodule3.EmployeesTable1.FieldByName('fio').AsString)))<>0 then
     if ansilowercase(stringgrid1.Cells[2,i][pos(' ',delete(stringgrid1.cells[2,i],1,pos(' ',stringgrid1.Cells[2,i])))+1])=ansilowercase(datamodule3.EmployeesTable1.FieldByName('fio').AsString[pos('.',delete(datamodule3.EmployeesTable1.FieldByName('fio').AsString,1,pos('.',datamodule3.EmployeesTable1.FieldByName('fio').AsString)))-1]) then begin

ругается на то,что постоянная не может использоваться как переменная(constant object cannot be passed as var parameter)

[evg_m]

ругается на то,что постоянная не может использоваться как переменная(constant object cannot be passed as var parameter)

Логично. Как можно изменить объект который нельзя менять?
просто введи переменные и "скопируй" туда данные

var
  fio, s: string;
fio:=datamodule3.employeestable1.fieldbyname('fio').asstring;
s:=stringgrid1.Cells[2,i];

а потом (при необходимости) "верни" обратно

... .fieldbyname('fio').asstring:=fio;
... .cells[2,i]:=s;

и код будет немножко легче читать(понимать)

if pos('.',delete(fio,1,pos('.',fio)))<>0 then
     if ansilowercase(s[pos(' ',delete(s,1,pos(' ',s)))+1])=ansilowercase(fio[pos('.',delete(fio,1,pos('.',fio)))-1]) then begin

а еще лучше

k1:=posEx('.',fio,1); //PosEx есть начиная с Delphi7
if k1>0 then k1:=posEx('.',fio,k1+1); // k1>0 есть вторая точка
//аналогично k2 позиция второго пробела

if (k1>1) and (k2>1) then begin
 if s[k2-1] <> fio[k1-1]