Txt-Apostrophe

From Vectorlab
Jump to: navigation, search


Function to wrap a string in apostrophes. Indispensable when dealing with criteria strings. By Orso B. Schmid


{ Orso *********************************************** }
{ wraps a string in '' }
FUNCTION T_Apo(str: STRING): STRING;
	BEGIN
		T_Apo := Concat(Chr(39), str, Chr(39));
	END;