procedure TForm1.ListBox1Click(Sender: TObject);
var
help : Integer;
list,prefix : TStringList;
begin
If ListBox1.ItemIndex=-1
then Exit;
// Schreib das mal dazu
list := TStringList.Create;
prefix := TStringList.create;
//ShowMessage(IntToStr(ValueListEditor1.RowCount));
if help = 0
then
begin
ValueListEditor1.InsertRow('
Titel:','
',true);
ValueListEditor1.InsertRow('
Speicher1:','
',true);
ValueListEditor1.InsertRow('
Speicher2:','
',true);
ValueListEditor1.InsertRow('
Speicher3:','
',true);
ValueListEditor1.InsertRow('
Text:','
',true);
ValueListEditor1.InsertRow('
Url:','
',true);
ValueListEditor1.InsertRow('
Username:','
',true);
ValueListEditor1.InsertRow('
Passwort:','
',true);
help := 1
end
else
begin
List := GetContentByRange(listbox1.Items[Listbox1.itemindex]);
ValueListEditor1.Values['
Titel:']:=GetPureStr(List[0]);
ValueListEditor1.Values['
Speicher1:']:=GetPureStr(List[1]);
ValueListEditor1.Values['
Speicher2:']:=GetPureStr(List[2]);
ValueListEditor1.Values['
Speicher3:']:=GetPureStr(List[3]);
ValueListEditor1.Values['
Text:']:=GetPureStr(List[4]);
ValueListEditor1.Values['
Url:']:=GetPureStr(List[5]);
ValueListEditor1.Values['
Username:']:=GetPureStr(List[6]);
ValueListEditor1.Values['
Passwort:']:=GetPureStr(List[7]);
end;
end;