| Révision | ed296b7143c631dfca9f3bbf7be1cc2437107e63 (tree) |
|---|---|
| l'heure | 2021-11-22 19:50:46 |
| Auteur | yamat0jp <yamat0jp@yaho...> |
| Commiter | yamat0jp |
inputDataのリスト表示でバグがあったのを直した
OKCANCL2.pas (diff) Unit1.pas (diff)
arrow.dproj (diff)| @@ -48,12 +48,17 @@ procedure TOKRightDlg.FormShow(Sender: TObject); | ||
| 48 | 48 | var |
| 49 | 49 | i, j: Integer; |
| 50 | 50 | obj: TObject; |
| 51 | + s: string; | |
| 51 | 52 | begin |
| 52 | 53 | for i := 0 to list.Count - 1 do |
| 53 | 54 | begin |
| 54 | 55 | obj := list.Objects[i]; |
| 55 | 56 | j := ValueListEditor1.Strings.IndexOfObject(obj); |
| 56 | - ValueListEditor1.Strings[j] := list[i]; | |
| 57 | + if j > -1 then | |
| 58 | + begin | |
| 59 | + s := ValueListEditor1.Keys[j + 1]; | |
| 60 | + ValueListEditor1.Values[s] := list.ValueFromIndex[i]; | |
| 61 | + end; | |
| 57 | 62 | end; |
| 58 | 63 | list.Assign(ValueListEditor1.Strings); |
| 59 | 64 | list.Sort; |
| @@ -168,6 +168,8 @@ var | ||
| 168 | 168 | line: TMyLine; |
| 169 | 169 | i: integer; |
| 170 | 170 | begin |
| 171 | + if stack.Count = 0 then | |
| 172 | + Exit; | |
| 171 | 173 | obj := stack.Pop; |
| 172 | 174 | if obj is TMyLine then |
| 173 | 175 | begin |
| @@ -5,8 +5,8 @@ | ||
| 5 | 5 | <FrameworkType>VCL</FrameworkType> |
| 6 | 6 | <MainSource>arrow.dpr</MainSource> |
| 7 | 7 | <Base>True</Base> |
| 8 | - <Config Condition="'$(Config)'==''">Release</Config> | |
| 9 | - <Platform Condition="'$(Platform)'==''">Win64</Platform> | |
| 8 | + <Config Condition="'$(Config)'==''">Debug</Config> | |
| 9 | + <Platform Condition="'$(Platform)'==''">Win32</Platform> | |
| 10 | 10 | <TargetedPlatforms>3</TargetedPlatforms> |
| 11 | 11 | <AppType>Application</AppType> |
| 12 | 12 | </PropertyGroup> |
Fork