WhiteUnicorn

	#WhiteUnicorn/ StartPage/ Documentation/DelphiFAQ >

Frequently Asked Questions

String Trim functions.

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.

	#WhiteUnicorn/ StartPage/ Documentation/DelphiFAQ >

	Anastasija aka WhiteUnicorn	LiveJournal PhotoFile