1:在Delphi处理 var i:integer; str,str1:string;str:='S1+S2-S3'+'.values'; for i:=1 to length(str) do if (copy(str,i,1)='+') or (copy(str,i,1)='-') then str1:=str1+'.values'+copy(str,i,1) else str1:= str1+copy(str,i,1);2:数据库中处理(此处假设为MSSQL) select replace(replace('S1+S2-S3','+','.values+'),'-','.values-')+'.values'
1:在Delphi处理 var i:integer; str,str1:string; bFag:boolean;bFag:=false; str:='S1+S2-10'; for i:=1 to length(str) do begin if (copy(str,i,1)>='A') and not bFag then bFag:=true; if ((copy(str,i,1)='+') or (copy(str,i,1)='-')) and bFag then begin str1:=str1+'.values'+copy(str,i,1); bFag:=false; end else str1:= str1+copy(str,i,1); if (i=length(str)) and bFag then str1:=str1+'.values';
就是我从table里取一个值,该值为 s1+s2-s3
我想把这个值用函数转换成 s1.value+s2.value-s3.value
就是在s1 ,s2,s3,后面都加上 ".value"字符串
怎么样办到呢
var
i:integer;
str,str1:string;str:='S1+S2-S3'+'.values';
for i:=1 to length(str) do
if (copy(str,i,1)='+') or (copy(str,i,1)='-') then
str1:=str1+'.values'+copy(str,i,1)
else
str1:= str1+copy(str,i,1);2:数据库中处理(此处假设为MSSQL)
select replace(replace('S1+S2-S3','+','.values+'),'-','.values-')+'.values'
我想转成字符串 "s1.value+s2.value-10" 又该怎么弄了?
var
i:integer;
str,str1:string;
bFag:boolean;bFag:=false;
str:='S1+S2-10';
for i:=1 to length(str) do
begin
if (copy(str,i,1)>='A') and not bFag then
bFag:=true;
if ((copy(str,i,1)='+') or (copy(str,i,1)='-')) and bFag then
begin
str1:=str1+'.values'+copy(str,i,1);
bFag:=false;
end else
str1:= str1+copy(str,i,1);
if (i=length(str)) and bFag then
str1:=str1+'.values';