delphi中,怎样把字符串中的字符副给另字符串

2020-12-10 22:37:14 字数 6376 阅读 4579

1楼:匿名用户

如果只是实现你所说的这个 很简单

呵呵var s1,s2:string;

begin

s1:=\'abcd\';

s2:=copy(s1,pos(\'c\',s1),1);

label1.caption:=s2;

end;

当然你如果取的是某位置的字符串 用这个函数比较简单function midstr(const atext: string; const astart, acount: integer):

string; $[strutils.pas

2楼:匿名用户

不明白,问题没描述清楚。

delphi中怎么取出字符串中单个cha

3楼:匿名用户

在delphi中,你可

bai以把字符du

串当作zhi数组来处dao

理,因此,取出其中的回单个字符,可以用strtest[10]这种来得到。

示例答**:

proceduretfrmmain.btntestclick(sender:tobject);

varstrtest,s:string;

i:integer;

begin

strtest:='abcd1234';

s:='';

fori:=low(strtest)tohigh(strtest)do

s:=s+'-'+strtest[i];

showmessage(s);

end;

delphi如何判断一个字符串是否包含另一个字符串

4楼:

if pos('另一个字符串', '一个字条串') > 0 then

begin

包含end;

delphi 如何把一串字符串的某个值的前几个字符保留下来

5楼:匿名用户

可通过函数

pos及copy配合使用实现该功能。

一、函数说明:

pos:获取特定字符所处字符串的位置,返回数据类型为整型。pos共有两个参数:pos(特定字符或字符串,源字符串)。

copy:字符串截取,返回数据类型为字符型。copy共有三个参数:copy(源字符串,起始截取位(整型,可为变量),截取位数(整型,可为变量))。

二、实例演示(笔者以截取特定字符‘.'前5位为例),操作如下:

1、添加tedit及tbutton控件各一个;

2、在tbutton控件的单击事件中,写入**:showmessage(copy(trim(ed2.text),pos('.',trim(ed2.text))-6,5));

3、在tedit中随便输入一串字符,点击tbutton控件,效果如下图:

6楼:

狂晕,一个so easy的东东用得着这样解决吗vars: string;

ca: array of char;

i, len: integer;

begin

s := 'abcde';

s := copy(s, 1, 2);

len := length(s);

setlength(ca, len);

for i := 0 to len - 1 doca[i] := s[i+1];

end;

//ca就是你所要的

//另外,在delphi中,string类型本身就可以看作是一个以1为基数的数组,

7楼:沙支夸依

不知道楼上的朋友程序调了没.大眼一看就好几处错误.真是不应该啊....

我给一段**并附上测试例程.

//delphi 7.0+win2k下通过

function myfun(str: string): pchar;

vari: integer;

begin

i := pos('c', str);

getmem(result, i); //注意,调用完该函数后,要调用freemem释放内存

zeromemory(result, length(result));

copymemory(result, @str[1], i-1);

end;

procedure tform1.button1click(sender: tobject);

varstr: string;

p: pchar;

i: integer;

begin

str := 'aabcdefg'; //测试范例字符串

p := myfun(str); //获取'c'之前的字符串并转换为字符数组(指针)

for i:=0 to length(p) do //对两种方式访问结果的每一个元素

begin

memo1.lines.add(p[i]); //按数组访问

memo1.lines.add((p+i)^); //按指针访问

end;

memo1.lines.add(p); //支持字符串式访问的自动转换

freemem(p); //对应getmem.不然会内存泄漏

end;

end.

8楼:匿名用户

这个嘛用的基本是字符串的处理函数

i,j:integer;

s1,s2:string;

arr :array of char;

begin

s1:="abcdef"; //这步你当然可以用s1来动态获得它的值比方说 //s1:=edit2.text;

i:=pos('c',s1);

s2:=copy(s1,1,length(s1-i-1));

setlength(arr,i-1);

for j:=0 to i-1do

begin

arr[j]:=copy(s2,j+1,1); //其实s2本身也可以当成数组来用了

end;

end;

delphi 中 用什么函数取一个字符串的子串

9楼:匿名用户

midstr返回指定范围内的字符串。该函数有三个参数。第一个参数为源字符串,第二个参数为起点,第三个参数为结束点。通过第

二、第三个参数则可指定要复制字符串的范围。

function midstr(const atext: string; const astart, acount: integer):string;

返回字符串atext从astart开始的acount个字符.

s:='abcdefg' 想取出 'cde' 这个子串:

uses strutils;

subs:=midstr(s, 3, 3);

则subs为cde.

delphi 怎么从一个tstrings对象中读取一个字符串添加到另一个tstrings对象中

10楼:匿名用户

vara:tstrings;

//取字符串

a.strings[1];

//添加字符串

a.add('abc');

11楼:匿名用户

list1 : tstrings;

list2 : tstrings;

......

list2.add( list1[5] ); // 取出第抄6行(袭从bai0开始),du

添加到list1中

list2.add( list1[i] ); // 操作第i行;一般用zhi在循环

dao中

12楼:匿名用户

tstrings类比较特殊 建议用tstringlist类

delphi如何获取一个字符串再另一个字符串中最后一次出现的位置

13楼:匿名用户

可以用po*** 进行查找

po***(const substr, s: string; offset: cardinal = 1): integer;

前两个参数跟pos一样 第三个参数是起始位置,比如你可以从第1个字符开始找 也可以从第十个

写一个递归 如果po***>0 就表示当前含有字符串,然后记录这个值,然后再从这个值开始找直到po***的值=-1 那么就找到最后一次出现的问题

14楼:匿名用户

delphi的函数很多,被明日科技写入函数大全的就是厚厚一本400多页的书.因此没有多少人去读完它,只是满足于几十个常用函数而已.

pos在找到子串的首次位置后,我一般是采用在这个位置将字符串切断,并再次查找下一个子串位置.

15楼:匿名用户

//功能:子串在主串第几次出现的位置function po***(substring,s:string;times:

integer):integer;var ncount,nindex:integer;begin ncount:

=0; while times>0 do begin nindex:=pos(substring,s); if nindex<=0 then break; s:=copy(s,nindex+1,length(s)-nindex); ncount:

=ncount+nindex; times:=times-1; end; result:=ncount;end;

delphi7中怎么把一个字符串赋值给一个一维数组。急啊。谢谢了。

16楼:匿名用户

楼主所说的数

组应该是array of byte 或者array of char这中的数组吧。

varstr : string;

pbuf: array[0..100]of char;//array[0..100]of byte

len : integer;

begin

str := 'abcdefg';

//将str的值赋给数组pbuf

strpcopy(@pbuf,str);

end;

17楼:匿名用户

不用赋值的啊,字符串本来就是一个一维数组啊。

举个例子:

varstr : string;

i : integer;

begin

str := 'abcdefg';

for i:=1 to length(str) dobegin

showmessage(str[i])

end;

end;

上面这个例子就是将字符串变量 str 中的字符一个一个的用showmessage显示出来。

18楼:匿名用户

字符串变量本身不就是一个一维数组吗??

如果不行的话就用一个for循环一个一个赋值咯

delphi如何获取一个字符串在另一个字符串中最后一次出现的位置?

19楼:会昌一中的学生

delphi(pascal)code

usesstrutils;functionreversepos(substr,s:string):integer;var

i:integer;begin

i:=pos(reversestring(substr),reversestring(s));ifi>0theni:=length(s)-i-length(substr)+2;

result:=i;end;

调用的例子:

delphi(pascal)code

showmessage(inttostr(reversepos('abc','abc123abc456')));

delphi(专家调查法)一般指德尔菲法。

德尔菲法,也称专家调查法,1946 年由美国兰德公司创始实行。该方法是由企业组成一个专门的**机构,其中包括若干专家和企业**组织者,按照规定的程序,背靠背地征询专家对未来市场的意见或者判断,然后进行**的方法。

德尔菲法本质上是一种反馈匿名函询法。其大致流程是:在对所要**的问题征得专家的意见之后,进行整理、归纳、统计,再匿名反馈给各专家,再次征求意见,再集中,再反馈,直至得到一致的意见。

其过程可简单表示如下:

匿名征求专家意见-归纳、统计-匿名反馈-归纳、统计……若干轮后停止。

由此可见,德尔菲法是一种利用函询形式进行的集体匿名思想交流过程。它有三个明显区别于其他专家**方法的特点,即匿名性、多次反馈、小组的统计回答。

java中怎样去掉字符串中汉字空格

1楼 匿名用户 可以通过replace方法做空格处理 例如 public static void main string args java中去除字符串中所有空格的几种方法 2楼 匿名用户 java中去掉 空格1 string trim trim 是去掉首尾空格 2 str replace 去掉所有...

c++中,字符和字符串的区别是什么

1楼 柳生十连兵 字符串 就是把字符串起来 简单的说是一个字符数组。如 a 是个字符 abc 就是个字符串 c 中string和char的主要区别在哪? 2楼 匿名用户 a 是char a 是char string,这两者都是普通的字符和字符串,和c中没什么不同 3楼 匿名用户 1 char是字符类...

(Java)怎么去掉字符串数组中重复的值

1楼 匿名用户 import java util set import java util treeset public class admin str string set toarray new string 0 for int i 0 i str length i 2楼 public stat...