Liste speichern geht netmehr

[SaFu]

Hi habe mal ein Problem

und zwr funtz mein speichern meiner Comboboxliste (eintrage) nicht mehr mach ich was falsch

Delphi-Quellcode:

sListePfad:= (ServerPfad + 'liste\alles.txt');
Combobox4.Items.SaveToFile(sListePfad);

wäre net wenn mir einer sagen könnte was ich falsch mache

[Jens Schumann]

Hallo,
das kann man nur sagen wenn man weiß was die Variable Serverpfad enthält.

[Luckie]

"funzt" ist keine ausreichende Fehlerbeschreibung. Der Code stimmt soweit. Der einzige Fehler in diesen zwei Zeilen kann nur im Pfad liegen.

[Crazy Ivan]

was funktioniert nicht mehr? gibt es fehler? ist der server verfügber?

[scrat1979]

Mein Bauch sagt mir entweder der "Serverpfad" existiert nicht mehr oder Du hast darauf keine Zugriffrechte (mehr) oder aber evtl. ein abschließender Backslash im "Serverpfad" fehlt...

[SaFu]

der Server ist da der Pfad auch hab ihn mir schon mit einem shoemessage angeguckt, das speichern der datei geht

z.b
 INIVertrPfad := (ServerPfad + 'Einstellungen\VertrSettings.ini'); das geht
aber das mit der combobox nicht

[Luckie]

Exsistiert das Verzeichnis liste? Funktioniert das speichern denn lokal? Wird der Code auch ausgeführt? Was passiert davor und danach?

Könntest du uns bitte mit etwas Eigeninitiative bei der Fehlersuche helfen?

[SaFu]

hier mal alles

Delphi-Quellcode:

//=====SpeicherButton===========================================================
procedure TForm7.speichern;
begin
 if FileListBox1.Items.IndexOf(ComboBox4.Text+'.txt') >-1 then
   begin
    if MessageDlgPos ('Wollen Sie Wirklich die datei überschreiben?',mtWarning,[mbYes,mbNo],0,290,300)= mrYes then
     begin
      combobox4spei;
      GridSpeichern;
      memospeichern;
      MessageDlgPos('Datei'+ ComboBox4.Text +' wurde gespeichert!',mtInformation,[mbOk],0,340,300);

      neu;
     end;

    end
    else
     begin
      combobox4spei;
      GridSpeichern;
      memospeichern;
      MessageDlgPos('datei '+ ComboBox4.Text +' wurde gespeichert!',mtInformation,[mbOk],0,340,300);

      sNameDatei:= ComboBox4.Text; // Variabele für die INI
      Label21.Caption:= sNameDatei; // Ausgabe der INI

      neu;
     end;

  begin

   ComboBox4.Clear; // ComboBox4 leeren
   ComboBox4.Items.LoadFromFile(sListePfad); //erneut laden


 INIVertrPfad := (ServerPfad + 'Einstellungen\VertrSettings.ini');
  begin
    with TMemIniFile.Create(INIVertrPfad) do
    try
     WriteString(GespeicherteDatei,DateiName,sNameDatei); // Wert in die ini datei schreiben
     UpdateFile;
    finally
     Free;
    end;
   end;
  end;
end;

//==========Combobox4 speichern=================================================
procedure TForm7.combobox4spei;
Var Combo4 :TStringList;
begin
 Combo4:= TStringList.Create;         //StringListe erzeugen
 ComboBox4.Items.Add(ComboBox4.Text); //Combo4 Text in die Combo4 List übergeben
 Combo4.Duplicates:= DupIgnore;       //Doppelte Namen ignorieren
 Combo4.Sorted:= True;                //Reihenfolge sotieren
 Combo4.Assign(ComboBox4.Items);      //ComboBox4 items nach ComboBox 4 Kopieren
 ComboBox4.Items.Assign(Combo4);      //ComboBox4 kopieren nach ComboBox4 Items
 Combo4.Free;                         //Stringliste freigeben
  
sListePfad:= (Form1.ServerPfad  +'liste\alles.txt');
  ComboBox4.Items.SaveToFile(sListePfad); 
end;

Es funktioniert eigentlich alles meine anderen Procduren verweisen auch auf dem Pfad und es wird alles auf dem Server gespeichert.

das laden der combobox geht auch

[SaFu]

Ok es geht jetzt keine ahnung was es war hab jetzt ne stunde rumgemacht und hab nichts verändert
Vielleicht bringt es einfach nur glück irgendwas mal ins forum zu schreiben

Danke aber für die ganzen antworten

[Luckie]

Ich wette mit dir, dass es nur zufällig heht:

Delphi-Quellcode:

Combo4.Free;                         //Stringliste freigeben   
sListePfad:= (Form1.ServerPfad  +'liste\alles.txt'); 
ComboBox4.Items.SaveToFile(sListePfad);

Du gibst nicht die Stringliste frei, sondern die Combobox. Desweiteren fehlt der Ressourcenschutzblock mit try-finally.