Làm thế nào để cắt một chuỗi thành một số mong muốn trong delphi?

Question

Tôi có một cột cơ sở dữ liệu có thể chỉ lấy 40 ký tự của một chuỗi. Vì vậy, khi độ dài của chuỗi lớn hơn 40 ký tự, nó cho tôi lỗi. Làm thế nào tôi có thể cắt/cắt chuỗi thành 40 ký tự trong delphi?

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' 

More ưa thích sẽ có thêm ellipsis nếu một chuỗi được cắt ngắn, để cho biết điều này rõ ràng hơn:

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 ...' 

Hoặc, cho tất cả những người yêu thích Unicode, bạn có thể giữ thêm hai nhân vật ban đầu bằng đơn nhân vật ellipsis ... (U + 2026: NGANG 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…' 

Nhưng sau đó bạn phải là số dương rằng tất cả người dùng của bạn và người thân của họ hỗ trợ nhân vật hiếm này.

Answer 2

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

Answer 3

Bạn có thể sử dụng SetLength cho việc làm này:

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