DELPHI 字符串分解查找插入数据库

显示全部楼层 · 2011-4-23 08:27:04

例如：‘你好：嗯；你好：姓名；张三：不用谢；知道：不知道；好了；是’ 字符串中我要知道‘你好：’到’；‘之间是什么，或知道：到‘；’之间是什么插入到数据库里面，比如现在'你好:=嗯'，姓名：=张三

千问 · 2011-4-23 08:27:04

Function doxxx(s: String): boolean;Varalist: TStringList;BeginResult := False;alist := TStringList.Create;Try
S := StringRePlace(S, '；', ';', [rfReplaceAll]);
S := StringRePlace(S, '：', '=', [rfReplaceAll]);
alist.Delimiter := ';';
alist.DelimitedText := S;
Application.MessageBox(PCha

千问 · 2011-4-23 08:27:04

function TForm1.FindText(FindStart, FindEnd: string): string;varTmpStr, SubStr: string;PosBegin, PosEnd: Integer;beginResult := '';TmpStr := '你好：嗯；你好：姓名；张三：不用谢；

千问 · 2011-4-23 08:27:04

procedure TForm1.Button1Click(Sender: TObject);varstr_all, str_sub: string;i: integer;arrstr_sub: array [0..99] of string;beginMemo1.Lines.Clear;str_all:=

千问 · 2011-4-23 08:27:04

//给你尝试一下，简单分隔一下吧。program Project1;{$APPTYPE CONSOLE}usesSysUtils, Classes;function GetMainStrs(ATalks: string): TStrings;Varp1, p2, l2, l1: Integer;str:

千问 · 2011-4-23 08:27:04

中的字符数字或小数保存到数据表中。也就是delphi的 string 要转换成数据库直接用StrToCurr进行转换即可 query1.ParamByName(

DELPHI 字符串分解查找 插入数据库

DELPHI 字符串分解查找插入数据库