各位大大
我有一任意字串 String IPaddr ="192.168.1.23"
或"192.xx.xx.xx"
想把它分解成四組 String A = "192";
String B = "168";
String C ="1";
String D = "23";
請教各為大大 我該如何寫這一支小程式呢?

procedure TForm1.FormCreate(Sender: TObject);
var
IPaddr : String;
A, B, C, D : String;
Dot, i, j, StartPos : Integer;
begin
IPaddr :='192.168.1.23';
Dot:=0;
StartPos :=1;
A:='';
B:='';
C:='';
D:='';
for i:=1 to Length(IPaddr) do
begin
if IPaddr[i]='.' then
begin
Dot := Dot 1;
case Dot of
1: for j:= StartPos to i-1 do
A:= A IPaddr[j];
2: for j:= StartPos to i-1 do
B:= B IPaddr[j];
3: begin
for j:= StartPos to i-1 do
C:= C IPaddr[j];
for j:= i 1 to Length(IPaddr)
do D:= D IPaddr[j];
end;
end;
StartPos := i 1;
end;
end;
Memo1.Clear;
Memo1.Lines.Add(A);
Memo1.Lines.Add(B);
Memo1.Lines.Add(C);
Memo1.Lines.Add(D);
end;

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

也可以試試下面的程式碼
AnsiString szIPaddr = "192.168.1.23";
TStringList *lsIPaddr = new TStringList;
lsIPaddr->CommaText = StringReplace(szIPaddr, ".", " ", TReplaceFlags() << rfReplaceAll);
for (int i=0; i < lsIPaddr->Count; i )
{
Memo1->Lines->Add(lsIPaddr->Strings[i]);
}
delete lsIPaddr;

procedure TForm1.Button1Click(Sender: TObject);
var
SL : TStrings;
SA,SB,SC,SD : String;
I : Integer;
begin
SL := TStringList.Create;
try
SL.Delimiter := '.';
SL.DelimitedText := '192.168.1.23';
for I := 0 to SL.Count - 1 do
begin
ShowMessage(SL.Strings[I]);
end;
SA := SL[0];
SB := SL[1];
SC := SL[2];
SD := SL[3];
finally
SL.Free;
end;
end;


Fishman

------
Fishman

謝謝各位大大的鼎力協助 ~~ 我可以正確的將字串分離出來了 ~~ 謝謝 ~~

想想 strstr 這個函數怎麼用。
就會了。