Question and Answer Database
FAQ2599D.txt String Trim functions.
Category :Object Pascal
Platform :All
Product :All 32 bit
Question:
Where are the equivalent functions for the Visual Basic Trim
functions?
Answer:
There are many ways to implement these and similar functions.
The following example is a great start for a string handling
unit add to your programming tool box.
unit StrFunc;
interface
procedure LTrim(var s : string);
procedure RTrim(var s : string);
procedure Trim(var s : string);
implementation
{$R *.DFM}
procedure LTrim(var s : string);
begin
while ((length(s)> 0) and
(s[1] = #32)) do
Delete(s, 1, 1);
end;
procedure RTrim(var s : string);
begin
while ((length(s)> 0) and
(s[Length(s)] = #32)) do
Delete(s, Length(s), 1);
end;
procedure Trim(var s : string);
begin
LTrim(s);
RTrim(s);
end;
end.
7/16/98 4:31:28 PM
Last Modified: 01-SEP-99