請問這一段如何改為前後可以填入值 現在只可能填補後面,如果前面空一格就無法填入 procedure TForm1.Button3Click(Sender: TObject); begin Database1.Connected := True; Table1.Close; Table1.Open; Table1.First; while not Table1.Eof do begin Table1.Edit; Table1.FieldByName('S').AsString := Copy(Table1.FieldByName('S').AsString StringOfChar(' ',Table1.FieldByName('S').Size),1,Table1.FieldByName('S').Size); Table1.Post; Table1.Next; end; Table1.Close; Database1.Connected := False;

------
Xax

您好﹗    試試AnsiQuotedStr函數﹐作用是在字串前后各加字元﹐範例如下﹕

begin
  Table1.FieldByName('S').AsString := AnsiQuotedStr(Table1.FieldByName('S).AsString, ' ');
end;

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

------
忻晟

------
Xax

您好﹗    請問整合的條件是什么﹖    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

當我輸入欄位值為上圖 0就代表使用者沒有輸入的空白值, 當有空白值的時候程式自動補入1值 狀況會有上圖這三項,該如何寫 謝謝!!

------
Xax

您好﹗    呵呵﹐還是不甚了解您的需要﹐提供您幾個函數﹐您自己試看看﹕

Insert（將某個字串插入到另一字串的某個位置）
Var
  S: String;
begin
  S := 'Delphi is the good tools';
  Insert('6.0', S, 7);
end;
//S值為﹕'Delphi6.0 is the good tools'    AnsiQuotedStr（在字串前后增加字元）
Var
  S: String;
begin
  S := 'Delphi is the good tools';
  Edit1.Text := AnsiQuotedStr(S, '@');
end;
//S值為﹕'@Delphi is the good tools@'    AnsiExtractQuotedStr（在字串前后各刪除一個字元）
Var
  P: PChar;
  S: String;
begin
  P := '@Delphi is the good tools ';
  S := AnsiExtractQuotedStr(P, '@');
end;
//S值為﹕'Delphi is the good tools'    LeftStr（從字串左邊取出一個長度的字串內容）
RightStr（從字串右邊取出一個長度的字串內容）
Var
  S1, S2: String;
begin
  S1 := LeftStr('Delphi is the good tools', 3);
  S2 := RightStr('Delphi is the good tools', 3);
end;
//S1值為﹕'Del'﹐S2值為﹕'ood'    Mid（從字串的中間取出一個長度的字串內容）
Var
  S: String;
begin
  S := MidStr('Delphi is the good tools', 3, 5);
end;
//S值為﹕'lphi '

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

------
忻晟

不好意思 幫我看看這一段那裡錯了 不可以RUN 謝謝!! procedure TForm1.Button1Click(Sender: TObject); Var S:String; begin S:='Delphi is the good tools'; Edit1.Text:=('6.0', S, 7); end;

------
Xax

您好﹗

procedure TForm1.Button1Click(Sender: TObject);
Var
  S: String;
begin
  S := 'Delphi is the good tools';
  Edit1.Text := Insert('6.0', S, 7);
end;

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

------
忻晟

紅色部分還是不可以

------
Xax

你好 你的問題是不是要在"固定"長度前後加上字元?? 若是的話 我有一個函式請參考

function addSpace(tmpStr:String; MaxLength:Integer):String;
var
  i,Inde:Integer;
begin
  result:='';
  Inde:=MaxLength - (Length(tmpStr));
    for i:= 1 to Inde do
      begin
        result:=' ' result;
      end;
  result:=result tmpStr;
end;

其中MaxLength是所要字串的最大長度 你將' '改成你要的應該就可以用了 參考看看

引言: 紅色部分還是不可以

Sorry 是小弟寫錯了﹐應改成如下﹕

procedure TForm1.Button1Click(Sender: TObject);
Var
  S: String;
begin
  S := 'Delphi is the good tools';
  Insert('6.0', S, 7);
  ShowMessage(S);
end;
//S值為﹕'Delphi6.0 is the good tools'

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

嗯~可以了~謝謝

------
Xax