Delphi. ValueListEditor. Как в цикле перекинуть все значения Keys в Values?

Question

Delphi. ValueListEditor. Как в цикле перекинуть все значения Keys в Values?

Вячеслав Власов Гуру (3458), закрыт 5 лет назад

Пробовал вот так, но цикл срабатывает единожды:

var i,j:Integer;
begin
for i := 0 to TableEdit.Strings.Count - 1 do;
begin
TableEdit.Values[TableEdit.Keys[j]]:=TableEdit.Keys[j];
end
end;

Дополнен 5 лет назад

TableEdit - это и есть ValueListEditor

Answer 1

Nocturnus Мастер (1067) 5 лет назад

Какая версия Delphi?

Answer 2

Президент интернета Оракул (54582) 5 лет назад

цикл по i, а присвоение по j

Вячеслав ВласовГуру (3458) 5 лет назад

По i срабатывает перенос только в последнюю строку.
По j - в первую.

А ведь между прочим вам человек правильно то говорит. Это ведь Delphi, а не G-Code, где переменным I J K заданы особенные значения, как вы считаете.

Answer 3

Срабатывает единожды потому что присвоение вне цикла.
Уберите точку с запятой после do, и замените j на i:
var
i: integer;
begin
for i := 0 to TableEdit.Strings.Count - 1 do
TableEdit.Values[TableEdit.Keys[i]] := TableEdit.Keys[i];
end;