Come tagliare una stringa ad un numero desiderato in delphi?

Question

Ho una colonna di database che può richiedere solo 40 caratteri di una stringa. Quindi, quando la lunghezza della stringa è maggiore di 40 caratteri, mi dà errore. Come posso tagliare/tagliare la stringa a 40 caratteri in 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' 

più fantasia sarebbe quella di aggiungere puntini di sospensione se una stringa viene troncato, per indicare più chiaramente:

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

Oppure, per tutti gli amanti Unicode, è possibile mantenere altri due personaggi originali utilizzando la singolo carattere puntini di sospensione ... (U + 2026: ORIZZONTALE 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…' 

Ma allora si deve essere positivo il fatto che tutti gli utenti ed i loro parenti sostengono questo personaggio non comune.

Answer 2

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

Answer 3

È possibile utilizzare SetLength per questo lavoro:

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