請問各位大大以下問題 無法跑不知道那裡錯了 procedure TForm1.Button1Click(Sender: TObject); Var S1, S2: String; begin S1 := LeftStr('Delphi is the good tools', 3); S2 := RightStr('Delphi is the good tools', 3); ShowMessage(s1); ShowMessage(s2); end; //S1值為﹕'Del'﹐S2值為﹕'ood' procedure TForm1.Button2Click(Sender: TObject); Var S: String; begin S := MidStr('Delphi is the good tools', 3, 5); ShowMessage(s); end; //S值為﹕'lphi ' end; end.

------
Xax

你好：  语句上没错，是不是少加了 uses StrUtils; 你可以在 …… implementation uses StrUtils; {$R *.dfm} …… 加上去试试应该可以,另S2的值应为：ols，字串的右三位。 ============================ 为什么经过多年以后，得失的过程如此冷漠 ============================

uses StrUtils; 請問大大這一段是什麼意思阿

------
Xax

您好﹗    因為LeftStr, RightStr等函數引用自StrUtils單元﹐在Delphi預設的專案引用單元中沒有StrUtils﹐所以當您使用這些函數時需要自行引用StrUtils單元﹕

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StrUtils;    type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟