2 i 1 spm

1)
  If not SaveDialog1.Execute then
    exit;
  ListBox1.Items.SaveToFile(SaveDialog1.FileName);
2)

  If not SaveDialog2.Execute then
    exit;
 
  with TStringList.Create do
  try
    Add(ListBox1.Items[ListBox1.ItemIndex])
    saveToFile(SaveDialog2.FileName);
  finally
    free;
  end;
 
Jens B

kommer en feld i savetofile

feld=fejl

Jeg skal have mere at vide ... Hvor og hovrdan ...

Jens B

ved ikke linien bliver rød

  If not SaveDialog2.Execute then
    exit;
 
  with TStringList.Create do
  try
    Add(ListBox1.Items[ListBox1.ItemIndex])
    saveToFile(SaveDialog2.FileName); <-----her
  finally
    free;
  end;

Jeg tror der mangler et ; efter Add(ListBox1.Items[ListBox1.ItemIndex])

det er det også .. prøv at sætte den ind og prøv igen.


Jens B