Wie schneidet man eine Zeichenfolge in Delphi auf eine gewünschte Zahl?

Question

Ich habe eine Datenbankspalte, die nur 40 Zeichen einer Zeichenfolge dauern kann. Wenn also die Länge der Zeichenfolge größer als 40 Zeichen ist, gibt es einen Fehler. Wie kann ich die Zeichenkette in Delphi auf 40 Zeichen schneiden/trimmen?

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' 

Mehr Phantasie wäre Auslassungs hinzufügen, wenn eine Zeichenfolge abgeschnitten wird dies deutlicher zeigen:

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

Oder für alle Unicode-Liebhaber, können Sie zwei weitere Original Zeichen halten, indem sie die Verwendung von Einzelauslassungs Charakter ... (U + 2026: Horizontale Auslassungs):

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

Aber dann müssen Sie positiv sein, dass alle Benutzer und ihre Angehörigen dieses ungewöhnlichen Charakter unterstützen.

Answer 2

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

Answer 3

Sie SetLength für diesen Job verwenden können:

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