Jak wyciąć ciąg znaków do wybranej liczby w delphi?

Question

Mam kolumnę bazy danych, która może mieć tylko 40 znaków ciągu. Więc gdy długość łańcucha jest większa niż 40 znaków, daje mi błąd. Jak mogę wyciąć/przyciąć ciąg do 40 znaków w 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' 

bardziej wymyślne byłoby dodać wielokropek jeśli ciąg jest obcinany, aby wskazać to jaśniej:

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

Albo, dla wszystkich miłośników Unicode, można zachować jeszcze dwa oryginalne znaki przy użyciu pojedynczy znak wielokropka ... (U + 2026: poziomy wielokropek):

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

Ale wtedy musisz być pewny, że wszyscy użytkownicy i ich krewni obsługiwać tę niezwykłą postać.

Answer 2

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

Answer 3

SetLength Można użyć do tego zadania:

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