1.如何删除字符串中的某各字符?2.如何响字符串中插入字符?help me!(30分)

小

小兔牙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-30

• #1

各位大虾:
1.如何删除字符串中的某各字符?
例如:b:=datetostr(now);
edit1.text:=b;
编辑框得到'03-5-30'
如何才能将变量b的值改变为03年5月30日呢?(有时得到的字符串的位数会变化,如'03-2-3')
我想先做个循环遇到'-'先删除再插入相应的汉字,但又不知道删除函数和插入函数是什末?
还望大虾们多多指教!除此之外不知道还有什末更好的办法没有!

 

H

hyspeter

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-30

• #2

showmessage(FormatDateTime('yy年mm月dd日',now))
小生拙见

 

小

小兔牙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-30

• #3

能不能再说说那两个函数呢!(删除,插入)
谢谢你!

 

A

Avenir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-30

• #4

procedure Insert(Source: string
var S: string
Index: Integer)
procedure Delete(var S: string
Index, Count:Integer)
都是在System单元里的，连use都不需要的

 

D

DarkWorm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-30

• #5

把三段有用的信息取出来，再加到一起不就好了么。不知道什么函数也不用去找，用不了两句话就可以实现了。
var
a,b,c,d: String;
begin
a := Formatdatetime('yy',now);
b := Formatdatetime('mm',now);
c := Formatdatetime('dd',now);
d := a + '年' + b + '月' + c + '日';
end

 

小

小兔牙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-30

• #6

真是太感谢各位仁兄了!