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_win311/ @ 234

  → /trunk_win311/ @ 235

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Ignore whitespace Rev 234 → Rev 235

/trunk_win311/Main.pas
1,7 → 1,5
unit Main;
{ This source code is only compatible with Delphi 1.0 ! }
interface
uses
154,9 → 152,6
l: TList;
sl: TStringList;
workItem: TWorkItem;
label
continuework,
ende;
begin
l := TList.Create;
sl := TStringList.Create;
167,53 → 162,49
workItem.nod := nod;
l.Add(workItem);
continuework:
while l.Count > 0 do
begin
workItem := l.Items[l.Count-1];
oid := workItem.sectionName;
ini := workItem.ini;
nod := workItem.nod;
workItem.Free;
l.Delete(l.Count-1);
if l.Count = 0 then goto ende;
workItem := l.Items[l.Count-1];
oid := workItem.sectionName;
ini := workItem.ini;
nod := workItem.nod;
workItem.Free;
l.Delete(l.Count-1);
if oid = 'OID:' then
begin
nod := Outline1.AddChild(nod, TITLE_OID);
end
else
begin
asn1ids := ini.ReadString(oid, 'asn1id', '');
if ini.ReadBool(oid, 'draft', false) then
nod := Outline1.AddChild(nod, Trim(oid+' '+Copy(asn1ids,1,Pos(',',asn1ids+',')-1))+' [DRAFT]')
if oid = 'OID:' then
begin
nod := Outline1.AddChild(nod, TITLE_OID);
end
else
nod := Outline1.AddChild(nod, Trim(oid+' '+Copy(asn1ids,1,Pos(',',asn1ids+',')-1)));
end;
sl.Clear;
for i := ini.ReadInteger(oid, 'delegates', 0) downto 1 do
begin
sectionName := ini.ReadString(oid, 'delegate'+IntToStr(i), '');
if sectionName = '' then continue;
sl.Add(sectionName);
end;
SortSL(sl);
for i := sl.Count-1 downto 0 do
begin
sectionName := sl.Strings[i];
begin
asn1ids := ini.ReadString(oid, 'asn1id', '');
if ini.ReadBool(oid, 'draft', false) then
nod := Outline1.AddChild(nod, Trim(oid+' '+Copy(asn1ids,1,Pos(',',asn1ids+',')-1))+' [DRAFT]')
else
nod := Outline1.AddChild(nod, Trim(oid+' '+Copy(asn1ids,1,Pos(',',asn1ids+',')-1)));
end;
sl.Clear;
for i := ini.ReadInteger(oid, 'delegates', 0) downto 1 do
begin
sectionName := ini.ReadString(oid, 'delegate'+IntToStr(i), '');
if sectionName = '' then continue;
sl.Add(sectionName);
end;
SortSL(sl);
for i := sl.Count-1 downto 0 do
begin
sectionName := sl.Strings[i];
workItem := TWorkItem.Create;
workItem.sectionName := sectionName;
workItem.ini := ini;
workItem.nod := nod;
l.Add(workItem);
workItem := TWorkItem.Create;
workItem.sectionName := sectionName;
workItem.ini := ini;
workItem.nod := nod;
l.Add(workItem);
end;
if (oid = 'OID:') or (sl.Count < 125) then
ExpandNodeAndParents(Outline1.Items[nod]);
end;
if (oid = 'OID:') or (sl.Count < 125) then
ExpandNodeAndParents(Outline1.Items[nod]);
goto continuework;
ende:
sl.Free;
l.Free;
end;
694,7 → 685,7
txtFile := ini.ReadString(Edit4.Text, 'information', '');
if FileExists(DBPath+txtFile) then
begin
DeleteFile(DBPath+txtFile);
SysUtils.DeleteFile(DBPath+txtFile);
end;
if txtFile <> '' then
begin