不好意思..請教個簡單的問題 ex: s1:string='123456 7890'; s2:string=' '; 如何將s1切成'123456'及' 7890'(含空白)2個字串呢??謝謝大家

Hi:    你可以使用 FindText 的指令，HELP 說明如下

procedure TForm1.Button1Click(Sender: TObject);    begin
  FindDialog1.Position := Point(RichEdit1.Left   RichEdit1.Width, RichEdit1.Top);
  FindDialog1.Execute;
end;    procedure TForm1.FindDialog1Find(Sender: TObject);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
  with RichEdit1 do
  begin
    { begin the search after the current selection if there is one }
    { otherwise, begin at the start of the text }
    if SelLength <> 0 then          StartPos := SelStart   SelLength
    else          StartPos := 0;        { ToEnd is the length from StartPos to the end of the text in the rich edit control }        ToEnd := Length(Text) - StartPos;        FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
    if FoundAt <> -1 then
    begin
      SetFocus;
      SelStart := FoundAt;
      SelLength := Length(FindDialog1.FindText);
    end;
  end;
end;

但你的需求，似乎用類似

procedure TForm1.Button14Click(Sender: TObject);
begin
    Memo1.Clear;
    TRY
        Memo1.Lines.Delimiter := ' ';
        Memo1.Lines.DelimitedText := Edit5.Text;
    EXCEPT
    END;
end;

的方法，會更簡單點 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

您好：

var S,S1,S2: String;i: integer;
begin
  S:='123456 7890';
  i:=pos(' ',S);
  if i > 0 then
  begin
    S1:=Copy(s,1,i-1);
    S2:=copy(s,i,length(s)-i);
  end;

可以用ExtractStrings來分割字串、    

var
  S: string;
  SL: TStringList;
begin
  S := '123456 7890';
  SL := TStringList.Create;
  ExtractStrings([' '], [], PChar(S), SL);
  ShowMessage(SL.Text);
  SL.Free;
end;

引言: 可以用ExtractStrings來分割字串、

var
  S: string;
  SL: TStringList;
begin
  S := '123456 7890';
  SL := TStringList.Create;
  ExtractStrings([' '], [], PChar(S), SL);
  ShowMessage(SL.Text);
  SL.Free;
end;

謝謝Rain提供的資料...因為我是要做一個參數檔.. 檔案資料如: 20 /*test valu*/ 所以如果用您的方法...會將此字串切成 20 /*test value*/ 但...我只要切成 20,/*test valu*/ 2個就好了

引言: 可以用ExtractStrings來分割字串、

var
  S: string;
  SL: TStringList;
begin
  S := '123456 7890';
  SL := TStringList.Create;
  ExtractStrings([' '], [], PChar(S), SL);
  ShowMessage(SL.Text);
  SL.Free;
end;

謝謝terrychen ,可以做了....