function GetBeforeString(S,S1:String):String;
//取得S中S1前的串
var i:integer;
begin
i:=Pos(S,S1);
if i=0 then Exit;
Result:=Copy(S,1,i-1);
end;
//取得S中S1前的串
var i:integer;
begin
i:=Pos(S,S1);
if i=0 then Exit;
Result:=Copy(S,1,i-1);
end;
解决方案 »
- 关于 BMP 转换 GIF 的问题,请各位高手帮个忙!!
- 高手,請指點一下
- 如何以共享方式打开文件[在线求助]
- 应该怎样写Sql语句或者存储过程或者用代码实现?
- HELP??????????
- 主从表问题求帮助,50分
- 分形代码
- 我的dvd光驱现在无法识别dvd碟片,但能正常读取cd-rom.这种问题能修好吗?
- 简单问题:(1)请问如何在DELPHI中捕捉到SQL语句错误的异常(2)请问如何将TFont对象的数据保存到数据库当中,DB2的库。解决立马给分!
- 如何根据下面xml文件值,用TNativeXML类,写出生成它的代码?
- 请教,谁能说说关于Maskedit怎么判断不为空!
- 急!请朋友帮助,在DELPHI5(DBGrid)中怎样删除多条记录?(现已选中多条)多谢谢!!!
var s2 : string;
i : integer;
begin
s2:='';
for i:=1 to strlen(pchar(s)) do
begin
if s[i]=#32 then
break;
s2:=s2+s[i];
end;
result:=s2;
end;