Условие возвращает постоянно False

[Shouldercannon]

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
  s, s2: string;
begin
  s := 'test1';
  s2 := 'test1';

  SL := TStringList.Create;
  SL.Add('test1');
  SL.Add('test2');
  SL.Add('test3');
  SL.Add('test4');
  SL.Add('test5');
  if s = SL.Values[s2] then Caption := SL.Values[s2];
  SL.Free;
end;

В чём загвостка? Постоянно возвращается False, хотя там и там значения одинаковые.

[Аватар]

Values не для этого случая. Юзай Strings

[grominfo]

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
  s, s2: string;
  i:integer;
begin
  s := 'test1';
  s2 := 'test1';
  SL := TStringList.Create;
  SL.Add('test1');
  SL.Add('test2');
  SL.Add('test3');
  SL.Add('test4');
  SL.Add('test5');
  for i:=0 to sl.Count -1 do
   if sl[i]=s2 then
      Caption := SL[i];
  SL.Free;
end;

Но мне кажется, что это не то, что тебе нужно. Если тебе нужно использовать ассоциативное сравнение, то Аватар правильно сказал, юзай TStrings

[Аватар]

юзай TStrings

Причем здесь это? Имелось ввиду

if sl.Strings[i]=s2
собственно то же самое, что и
if sl[i]=s2

Для Values
SL.Add('name1=альфа');
SL.Values['name1'] и вернет 'альфа'

[grominfo]

Аватар, ну а я разве по другому сказал? Автору нужно вернуть ассоциативное значение. Я показал, что в его случае проверка будет работать только таким образом:

  for i:=0 to sl.Count -1 do
   if sl[i]=s2 then
      Caption := SL[i];

То есть проверяется только по совпадению элемента. Потом добавил, что

Но мне кажется, что это не то, что тебе нужно. Если тебе нужно использовать ассоциативное сравнение, то Аватар правильно сказал, юзай TStrings