Dec 232017
Borland’s fix for the STDDLG.PAS unit in Borland Pascal 7.0’s version of Turbo Vision. | |||
---|---|---|---|
File Name | File Size | Zip Size | Zip Type |
PATCHR.TXT | 1033 | 578 | deflated |
Download File PATCHR.ZIP Here
Contents of the PATCHR.TXT file
When using the TFileDialog object with Borland Pascal 7.0
users may find that errors occur when navigating through subdirectories
using the "..\" symbol in the files listbox. Borland is aware of this
problem and wants all our users to know that there is a simple fix.
The problem lies in the StdDlg.Pas file which resides in
the \BP\RTL\TV subdirectory. After opening the file, search on the
word "RELATIVEPATH" to find the following code:
function RelativePath(var S: PathStr): Boolean;
begin
S := LTrim(RTrim(S));
RelativePath := not (S <> '') and ((S[1] = '\') or (S[2] = ':'));
end;
In order to resolve the problem, change the fourth line so that it
looks like this:
RelativePath := not ((S <> '') and ((S[1] = '\') or (S[2] = ':')));
The problem, of course, was a missing set of paranthesis.
When you are done, you can copy your new TPU or TPP file
into the \BP\UNITS subdirectory.
Pascal users should understand that this was a BPO7 problem
which does not exist in the TP7 release.
users may find that errors occur when navigating through subdirectories
using the "..\" symbol in the files listbox. Borland is aware of this
problem and wants all our users to know that there is a simple fix.
The problem lies in the StdDlg.Pas file which resides in
the \BP\RTL\TV subdirectory. After opening the file, search on the
word "RELATIVEPATH" to find the following code:
function RelativePath(var S: PathStr): Boolean;
begin
S := LTrim(RTrim(S));
RelativePath := not (S <> '') and ((S[1] = '\') or (S[2] = ':'));
end;
In order to resolve the problem, change the fourth line so that it
looks like this:
RelativePath := not ((S <> '') and ((S[1] = '\') or (S[2] = ':')));
The problem, of course, was a missing set of paranthesis.
When you are done, you can copy your new TPU or TPP file
into the \BP\UNITS subdirectory.
Pascal users should understand that this was a BPO7 problem
which does not exist in the TP7 release.
December 23, 2017
Add comments