Неочевидное поведение TStringList
Добавлено: 25.01.2013 17:24:46
Код:
Ожидалось увидеть:
Обнаружено:
- Код: Выделить всё
program Project1;
Uses
Classes;
Var
aStringList: TStringList;
begin
aStringList := TStringList.Create;
aStringList.Values[''] := '100';
aStringList.Values['wtf'] := '200';
aStringList.Values['wtf'] := '300';
aStringList.Values[''] := '400';
WriteLn(aStringList.Text);
aStringList.Free;
end.
Ожидалось увидеть:
=400
wtf=300
Обнаружено:
=100
wtf=300
=400