https://www.baidu.com/s?dfasdfasdfasdfasdfas 這是一個字串 我想截取 第三個/后的字串 ，之前的不要了 s?dfasdfasdfasdfasdfas
uj5u.com熱心網友回復：
procedure TForm1.BitBtn1Click(Sender: TObject);
var
s:string;
l:TStringList;
i:integer;
begin
s:='https://www.baidu.com/s?dfasdfasdfasdfasdfas';
l:=TStringList.Create;
l.Delimiter:='/';
l.DelimitedText:=s;
for i:=0 to l.Count-1 do
Memo1.Lines.Add(l[i]);
FreeAndNil(l);
end;
好久沒寫過Delphi代碼了，這個你試試吧
uj5u.com熱心網友回復：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function getS(s:string):string;
var i,j:integer;
begin
Result := '';
j:=0;
for i:=1 to Length(s) do
if S[i]='/' then j:=i;
if j>0 then Result:=Copy(S,J+1,Length(s)-J);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='https://www.baidu.com/s?dfasdfasdfasdfasdfas';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit2.Text:=getS(Edit1.Text);
end;
end.
僅供參考。
uj5u.com熱心網友回復：
Arr : TArray<string>;s: string;
s:='https://www.baidu.com/s?dfasdfasdfasdfasdfas';
Arr:= s.Split(['/'], ExcludeEmpty);
showmessage(Arr[High(Arr)]);
uj5u.com熱心網友回復：
delphi低版本直接把字串轉成TstringList格式,想取第幾個就取第幾個stringlist := stringreplace('https://www.baidu.com/s?dfasdfasdfasdfasdfas','/',#13,[rfReplaceAll]);
showmessage(stringlist[2]);
delphi高版本用3樓的.
uj5u.com熱心網友回復：
用copy函式轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/74553.html
標籤：語言基礎/算法/系統設計
上一篇：tcp/ip協議的模擬邏輯問題