Question

delphi DBGrid 获取字段里的值进行循环截取并取值 怎么实现的啊!

delphi DBGrid 获取字段里的值进行循环截取并取值 怎么实现的啊， 数据库字段的值是这样的 断裂拉伸强度$撕裂强度$扯断伸长率$粘接剥离强度$不透水性$低温弯折 去除$符号然后第一次是取 断裂拉伸强度 二次是取 撕裂强度 逐步循环取值如何实现啊，大神们求救啊

Answer 1

var
  LStrList:TStrings;
begin
  LStrList := TStringList.Create;
  LStrList.Delimiter := '$';
  LStrList.DelimitedText :='断裂拉伸强度$撕裂强度$扯断伸长率$粘接剥离强度$不透水性$低温弯折';
  {LStrList里方的就是
断裂拉伸强度
撕裂强度
扯断伸长率
粘接剥离强
不透水性
低温弯折} 
end;

追问

　　大神好像不对呀，

　　tJc_CS:=DataModule1.UniQuery3.Fieldbyname('JC_CS').AsString;//这个字段里取得是断裂拉伸强度$撕裂强度$扯断伸长率$粘接剥离强度$不透水性$低温弯折'; 然后去取每次获取选中的DBGrid 值进行循环取
　

追答

var
  LStrList:TStrings;
  i:integer;
begin
  LStrList := TStringList.Create;
  LStrList.Delimiter := '$';
  while not DataModule1.UniQuery3.eof do
  begin
    tJc_CS:=DataModule1.UniQuery3.Fieldbyname('JC_CS').AsString;
    if  tJc_CS = ‘’ then break；
     LStrList.DelimitedText :=tJc_CS;
     for i:=0 to LStrList.count -1 do
     begin
     //输出
     end;
     DataModule1.UniQuery3.next； 
  end; 
end;

追问

 大神 这样的话再输出的时候每次输出的数据都是选中的列里字段值全部的数据不对呀，它循环的是整个UniQuery 会把所有的数据进行循环、每次都是都是获取全部 然后$是去除了!

追答

for i:=o to LStrList.count -1 do
begin
LStrList.string[i]; //// 这不是可以一行一行输出吗？
end;