Главная страница | назад





Article #17599: String Trim functions.

 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