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

Delphi-Quellcode:

 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 :cry: :?: :?:
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.