oidplusalarmingautosfxaysaliacalllibchecksum-toolscolormanagercryptochatcurrency_converterdecoderdelphiutilsdistributeddpcstudiodpg2fastphpfileformatsfilter_foundryforestgridgameht46f47_simulatorindexer_suiteipe_artfile_utilsjavautilsjumperlightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designpersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependrecyclebinunitsimple_log_eventsokobanspacemissionstackmanuserdetect2uuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /trunk_dos/ @ 740

  → /trunk_dos/ @ 741

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 740 → Rev 741

/trunk_dos/OIDPLUS.EXE
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream

/trunk_dos/OIDPLUS.PAS
9,6 → 9,14
(* - "OIDplus for DOS" program *)
(************************************************)
(* IMPORTANT: *)
(* When you compile this code with Turbo Pascal 7.01, *)
(* it won't run on fast PCs (Runtime Error 200). *)
(* The built EXE file needs to be patched. *)
(* The program "PatchCRT" by Kennedy Software *)
(* WON'T work because it somehow breaks our "_Pause" function. *)
(* Instead, use the tool "TPPATCH" by Andreas Bauer. *)
uses
Dos, Crt, StrList, VtsFuncs, VtsCui, OidFile, OidUtils;
93,21 → 101,9
end;
function AsnAlreadyExisting(oid: POID; asnid: string): boolean;
var
sTmp: string;
i: integer;
begin
for i := 0 to ListCount(oid^.AsnIds)-1 do
begin
sTmp := ListGetElement(oid^.AsnIds, i);
if sTmp = asnid then
begin
AsnAlreadyExisting := true;
exit;
AsnAlreadyExisting := ListContains(oid^.AsnIds, asnid);
end;
end;
AsnAlreadyExisting := false;
end;
function AsnEditor(oid: POID): boolean;
var
692,7 → 688,6
else
begin
ShowMessage('File ' + filename + ' not found', 'ERROR', true);
(* TODO: With PatchCRT, there will be an infinite loop here *)
_Pause;
end;
end;
754,9 → 749,11
procedure OP_ReturnToMSDOS;
begin
ClrScr;
WriteLn('Thank you for using OIDplus for DOS.');
WRiteLn('');
end;
function _GetExportLine(oid: POID; indent: integer): string;
function _GetTreeViewLine(oid: POID; indent: integer): string;
var
i: integer;
sTmp: string;
783,7 → 780,7
begin
sTmp := Copy(sTmp, 1, TREEVIEW_WIDTH-3) + '...';
end;
_GetExportLine := sTmp;
_GetTreeViewLine := sTmp;
end;
procedure _RecTreeExport(oid: POID; var F: Text; indent: integer);
793,7 → 790,7
suboid: POID;
childFilename: string;
begin
sTmp := _GetExportLine(oid, indent);
sTmp := _GetTreeViewLine(oid, indent);
sTmp := TrimLineToWidth(sTmp, TREEVIEW_WIDTH);
WriteLn(F, sTmp);