Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/IndividualAbon.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by h677, Fri Oct 8 15:12:51 2004 UTC revision 1.4 by h677, Wed Nov 3 14:33:57 2004 UTC
# Line 87  begin Line 87  begin
87                                  ComboBox1.Items.Clear;                                  ComboBox1.Items.Clear;
88                                  for i := 0 to NGFile.Count - 1do begin                                  for i := 0 to NGFile.Count - 1do begin
89                                          str := Copy(NGFile.Strings[i], 1, AnsiPos('-', NGFile.Strings[i]) - 1);                                          str := Copy(NGFile.Strings[i], 1, AnsiPos('-', NGFile.Strings[i]) - 1);
90                                          ComboBox1.Items.Add(str);                                          if str <> '' then
91                                                    ComboBox1.Items.Add(str);
92                                  end;                                  end;
93                                  if NGFile.Count > 0 then                                  if ComboBox1.Items.Count > 0 then
94                                          Result := true;                                          Result := true;
95                          except                          except
96                                  Result := false;                                  Result := false;

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26