störendes '=' vor String nach Update von TStringList

[bensh]

hi harald.

code:

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var
 action : Integer;
 selected: Integer;
 item: String;
 A : TStringList;
begin

  try
    A := TStringList.Create;
    selected := ListBox1.ItemIndex;
    if selected < 0 then ShowMessage('Kein Eintrag ausgwählt!')
    else
    begin
      action := MessageDlg('"'+item+'" ändern?', mtWarning , mbOKCancel, 0);
      if action = mrOK then
      begin
        item := Values[selected];
        Split(' ', item, A);
        Edit3.Text := a[0];
        Edit4.Text := a[1];
        ShowEditComponents();
      end;
    end;
  finally
    A.Free;
  end;
end;

Wie du siehts würde ich die name/value kombi brauchen

Cheers

---
Edit:
ich habe das jetzt zu fuss gelöst. Nicht schön aber es funkt. Über alle Elemente iterieren und stringCompare()