delphi字符串截取 delphi字符串截取数字

请问在Delphi编程中，如何通过函数取出一串字符中的一个字符？

edit2.text:=leftstr(edit1.text,8);

用RightStr函数吧

delphi字符串截取 delphi字符串截取数字

功能说明：返回字符串右边指定个数的新字符(串)。该函数有两个参数。个参数为完整的字符串，第二个参数为指定个数。

参考实例：

vaFillSL('{a=1,b=2,c=3},{a=11,b=22,c=33},{a=111,b=222,c=333}',ListBox1.Items );r

S, A: String;

A := RightStr(S, 3); // 从最右边开始，获取右边的三个字符。因此A变量则等于ger。

copy(ASR,length(ASR),1)

这个很好用啊

copy('字符串',开始位置,要的长度)

DELPHI 数据库字符串的提取

var

str:string;

str:=adoquery1.FieldByname('字段名').ASstring;//从数据库取出字符串

ListBox1.Items.Delibeginmiter:=',';//设置分隔符

ListBoxaStr.Split(['/']);1.Items.DelimitedText:=str;//设置要分隔的字符串

在fastreport中怎样截取一个字符串的左4个字符，右4个字符

6,3这两end;个数是固定的嘛?

delphii7里面怎么样去掉一个字符串的某一个字符前面的一段字符!

List.Free;

function DeleteStr(ss,sign: String): String; //删除 ss 中 sign 及之前的字符

var

ps,wd: Integer;

Result := ss;

wd := Length(sign);

if ps > 0 then begin // ss 中包含 sign ,位置在 ps

Delete(Result, 1, ps := Pos(sign, ss);ps + wd - 1);

先用函数找到位置，然后用substring取位置之后直到结尾

Delphi 中如何取字符？然后把字符相减。

其实很简单，delph文字处理我的强项i有字符截取函数LeftStr, MidStr, RightStr

这几个函数都包含在StrUtils中，所以需要uses StrUtils;

MidStr(Dstr, 4,3) := ’沈阳市' //4代表从第四个取，3代表取3个字符

你就可以用midstr(Dstr, 4,100)就可以了，1str2:=arr1[i];00足够取到一位了

关于问号的问题，如果总是一位也好解决，用Length(Str)函数取的字符长总长度，然后用LeftStr(Dstr,( Length(Str)-1))//这里我没测试，如果这样写语法不对，你就把Length(Str)-1赋值给一个变量即可。

Delphi 分割字符串

下面是一个例子：

procedure TForm1.Button1Click(Sender: TObject);

var

tempStr: String;

DelimiterPos: Integer;

tempStr:= 'Delphi 电脑网络 其他编程语言';

DelimiterPos:= Pos(' ', tempStr); //这句就知道长度了

tempStr:= Copy(tempStr, 0, DelimiterPos);

ShowMessage(tempStr);

var

tmpStr, tmpPosStr: string;

tmpInt: integer;

begin......

......

tmpStr:= 'Delphi电脑网络 其他编程语言';//字串

tmpPosStr:= ' ';//分割符

tmpInt:= Pos(tmpPosStr, tmpStr);//分割符位置

if tmpInt>0 then

Edit1.Text := copy(tmpStr，1，tmpInt）;

Edit1.Text := copy(tmpStr，tmpInt，Length(tmpStr)）;

......

随手写的,没有编译过,如有手误或者其它错误包含一下

这是一个分割符,分成两个字串的例子,你可以自己改改改成其它例子

edit1.text :=copy('Delphi电脑网络 其他编程语言'，1，6）;

如何截取字符串后N位字符

arr2:=Split(str2,'|');

LeftStr(str,n)：从左向右，截取n个字符

str1:='要分割的字符串';

RightStr(str,n)：从右向左

Copy(str,index,n)：从任意位置，截取n个字符

或者

可以使用AnsiMidString(Source,startLen,EndLen);

Delphi新手求助字符串作

取值函数 跟rightstr 不多！

[Delphi] function ExtractStrings(Separators: TSysCharSet; WhiteSpace: TSysCharSet; Content: PAnsiChar; Strings: TStrings): Integer;

Separators 参数指定一组分割符，所有的子串都是用它们分割的。但是成对的引号内的分割符会被忽略（参看下面的例子）。

WhiteSpace 参数指定每个子串开头被忽略的字符s。

Content 参数就是被分割的“源”串了。

Strings 参数用于接收分割后的各个子串。它的原有内容不会被清空。别忘了Create哦。

另外，EctractStrings不会把（忽略WhiteSpaces后的）空串加入到Strings中。

var

s: String;

List: TStringList;

s := 'about: #delphi; #pascal, programming';

List := TStringList.Create;

ExtractStrings([';',',',':'],['#',' '],PChar(s),List);

//个参数是分隔符; 第二个参数是开头被忽略的字符

ShowMessage(List.Text); /str: Tuserarray;/about

//delphi

//pascal

//programming

请问DelPhi中copy函数用法

RightLeftStr(Dstr, 3) := ’辽宁省’Str(Dstr, 3) := '铁西区'

copy（str，n，length），这个函数的作用就是从字符串str的第n个位置开始，截取长度为length长的字符串。返回的是你截取的字符串。

比如：str='stringstring';n=2,length=3; copy(str,n,length)返回的就是‘tri’ ，要知道这里计数是从1开始的而不是从0开始的。ok

其实你可以打出“copy()”把鼠标放在copy上，按F1 帮助。函数的用法一目了然

1楼和3楼都已回答得很详细了。。。