Power-Programmierung/CD1.mdf/pascal/library/dos/mailpro/ucasu.pas

Pascal/Delphi Source File | 1988-08-23 | 236 b | 18 lines

unit UCasU;

interface
{uses}
function UCase( X: string): string;

implementation

Function UCase;
var I:    integer;
begin
for I := 1 to ord(X[0]) do X[I] := UpCase(X[I]);
UCase := X;
end;

end.     {implementation}