Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/IndividualAbon.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
|