---

unit TrimStr;

interface

Const Space = #$20;

function LTrim(Str: String): String;
function RTrim(Str: String): String;
function Trim(Str: String): String;

implementation
function LTrim(Str: String): String;
var len: Byte absolute Str; i: Integer;
begin
i := 1;
while (i <= len) and (Str[i] = Space) do Inc(i);
LTrim := Copy(Str,i,len-i+1)
end {LTrim};

function RTrim(Str: String): String;
var len: Byte absolute Str;
begin
while (Str[len] = Space) do Dec(len);
RTrim := Str
end {RTrim};

function Trim(Str: String): String;
begin
Trim := LTrim(RTrim(Str))
end {Trim};
end.

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.