怎样取这样的一个字符串!(24分)

maysoft · 2004-01-11

怎样取这样的一个字符串：xxxxx2005……，怎样取出2005以后的字符串（包括2005），2之前的所有字符都不要，不管前面有多少个字符！怎么办？

jackchin · 2004-01-11

用Pos找出'2005'的位置,然后用Delete或Copy都可以

blyb · 2004-01-11

如果‘2005’是固定的，赞同楼上。

maysoft · 2004-01-11

不一定是2005，也可以是其它年份！但是长度都是4!

代号 · 2004-01-11

TDateTimePicker控件，   edit1.text:=dateTostr(Form1.TDateTimePicker.date)想得到返回值为日期. 可是返回值包括时间。如何取出日期值，用什么函数？

simpson_lo · 2004-01-11

要是这个年份值有一个下限就有解决方法，或之前的字符没有连着的数字就有办法。 每次都取四个字符用StrToInt转成Integer，看是否大于某各下限。

YANGWEI0308 · 2004-01-11

str:='********2005*********'; sub:='2005'; i:=pos(str,sub); if i>0 then result:=copy(str,i,Length(str));

xoeo · 2004-01-11

procedure SeparateTerms(s : string;Separator : char;Terms : TStringList);   var   hs : string;   p : integer; begin   Terms.Clear;   if Length(s)=0 then     Exit;   p:=Pos(Separator,s);   while P<>0 do   begin     hs:=Copy(s,1,p-1);     Terms.Add(hs);     Delete(s,1,p);     p:=Pos(Separator,s);   end;   if Length(s)>0 then     Terms.Add(s); end; 这个函数,以2来分界,再COPY(2后面的STR,4,(length(str)-3)

XWHope · 2004-01-12

要看年份前的字符串 如果没有数字（至少没有四个连续数字）则可以用以下方法实现 procedure TForm1.Button1Click(Sender: TObject); function IsInteger(value:String):Boolean; begin   result:=True;   try     strtoint(value);   except     result:=False;   end; end; var   Str1:String;   i:integer; begin   str1:='sdfsad343er2004sdfa3333zdf';   if length(Str1)=0 then exit;   for i:=1 to length(Str1) do   begin     if str1 in ['0'..'9'] then     begin       if IsInteger(copy(str1,i,4)) then       begin         showmessage(copy(str1,i,Length(Str1)-i+1));         break;       end;     end;   end; end;

MYSBS · 2004-01-12

Copy(S,Pos('2005',S),Len(S)-Pos('2005',S))

chenshaizi · 2004-01-12

来自：代号, 时间：2004-1-11 19:24:00, ID：2405402 TDateTimePicker控件，  edit1.text:=dateTostr(Form1.TDateTimePicker.date)想得到返回值为日期. 可是返回值包括时间。如何取出日期值，用什么函数？   edit1.text:=Formatdatetime('yyyy',Form1.TDateTimePicker.date)

代号 · 2004-01-14

谢谢各位，让我学到不少。

Elite_liu · 2004-01-14

edit.text:=formatdatetime('yyyy-mm-dd',form1.Tdatetimepicker.date);

怎样取这样的一个字符串!(24分)

maysoft

Unregistered / Unconfirmed

jackchin

Unregistered / Unconfirmed

blyb

Unregistered / Unconfirmed

maysoft

Unregistered / Unconfirmed

代号

Unregistered / Unconfirmed

simpson_lo

Unregistered / Unconfirmed

YANGWEI0308

Unregistered / Unconfirmed

xoeo

Unregistered / Unconfirmed

XWHope

Unregistered / Unconfirmed

MYSBS

Unregistered / Unconfirmed

chenshaizi

Unregistered / Unconfirmed

代号

Unregistered / Unconfirmed

Elite_liu

Unregistered / Unconfirmed

Similar threads