Delphi'de istenen bir sayıya dize nasıl kesilir?

Question

Bir dizenin yalnızca 40 karakterini alabilen bir veritabanı sütunum var. Dize uzunluğu 40 karakterden büyük olduğunda, bana hata veriyor. Delphi'de dizeyi 40 karaktere nasıl kesip/kesebilirim?

Answer 1

var 
    s: string; 
begin 
    s := 'This is a string containing a lot of characters.' 
    s := Copy(s, 1, 40); 
    // Now s is 'This is a string containing a lot of cha' 

Daha fantezi bir dize kesilirse, üç nokta eklemek olacaktır bu daha net göstermek için:

function StrMaxLen(const S: string; MaxLen: integer): string; 
var 
    i: Integer; 
begin 
    result := S; 
    if Length(result) <= MaxLen then Exit; 
    SetLength(result, MaxLen); 
    for i := MaxLen downto MaxLen - 2 do 
    result[i] := '.'; 
end; 

var 
    s: string; 
begin 
    s := 'This is a string containing a lot of characters.' 
    s := StrMaxLen(S, 40) 
    // Now s is 'This is a string containing a lot of ...' 

Veya, tüm Unicode severler için, kullandığınız fazla iki kez daha özgün karakterleri tutabilir tek üç nokta karakteri ... (U + 2026: YATAY eLLIPSIS):

function StrMaxLen(const S: string; MaxLen: integer): string; 
var 
    i: Integer; 
begin 
    result := S; 
    if Length(result) <= MaxLen then Exit; 
    SetLength(result, MaxLen); 
    result[MaxLen] := '…'; 
end; 

var 
    s: string; 
begin 
    s := 'This is a string containing a lot of characters.' 
    s := StrMaxLen(S, 40) 
    // Now s is 'This is a string containing a lot of ch…' 

Ama sonra tüm kullanıcılar ve yakınları bu nadir karakteri destekleyen pozitif olmalıdır. Bu iş için

Answer 2

var s : string; 
begin 
    s := 'your string with more than 40 characters...'; 
    s := LeftStr(s, 40); 

Answer 3

kullanabilirsiniz SetLength :

SetLength(s, Min(Length(s), 40));