麻煩與在Delphi

Question

串我有數字的隨機串
（號碼只能使用一次，只能從1-9，幾乎任何長度（分1，最多9））：

var 
Input: String; 
begin 
Input := '431829576'; //User inputs random numbers 

現在我需要獲得指定的號碼前。如何5。

var 
Number: Integer; 
begin 
Number := 5; 

並且功能執行結果543182976。

我沒有任何想法如何使這樣的功能，謝謝。

Answer 1

你的意思是這樣嗎？

function ForceDigitInFront(const S: string; const Digit: Char): string; 
begin 
    result := Digit + StringReplace(S, Digit, '', []); 
end; 

一個更簡單的解決方案是

function ForceDigitInFront(const S: string; const Digit: Char): string; 
var 
    i: Integer; 
begin 
    result := S; 
    for i := 1 to Length(S) do 
    if result[i] = Digit then 
    begin 
     Delete(result, i, 1); 
     break; 
    end; 
    result := Digit + result; 
end; 

Answer 2

你可以這樣來做：

function ForceDigitInFront(const S: string; const Digit: Char): string; 
var 
    dPos : Integer; 
begin 
    Result := s; 
    dPos := Pos(Digit,S); 
    if (dPos <> 0) then begin // Only apply Digit in front if Digit exists !? 
    Delete(Result,dPos,1); 
    Result := Digit + Result; 
    end; 
end; 

如果數字是不是在輸入字符串，數字是不加入，但變化這個如果不符合你的實現。

Answer 3

這裏是減少了所需的字符串分配的NUMER，以及檢查數字已經在前面的解決方案：

function ForceDigitInFront(const S: string; const Digit: Char): string; 
var 
    dPos : Integer; 
begin 
    Result := s; 
    for dPos := 1 to Length(Result) do 
    begin 
    if Result[dPos] = Digit then 
    begin 
     if dPos > 1 then 
     begin 
     UniqueString(Result); 
     Move(Result[1], Result[2], (dPos-1) * SizeOf(Char)); 
     Result[1] := Digit; 
     end; 
     Exit; 
    end; 
    end; 
end;