Brauche Hilfe :(

[EugenE]

jop wurde vorher createt

das ist die ganze procedure

Code: Alles auswählen

//Die XML-Datei wird runtergeladen und gespeichert
procedure TForm1.download;
var
   txt: TStringList;
   xml: String;
   ini : TIniFile;
   stop: Boolean;
begin
   if Auswert then
   begin
   txt := TStringList.Create;
   ini := TIniFile.Create(path+'config.ini');
   xml := ini.ReadString('XMLs',IntToStr(TabControl1.TabIndex),'');
 
   try
      stop := HttpGetText('http://layer-ads.de/api/'+xml+'.xml', txt);
   except
      ShowMessage('hm die url spinnt -.- oder so');
   end;
 
   if txt.Count > 7 AND stop then
      begin
         ShowMessage('gespeichert');
         txt.SaveToFile(path+'xml/'+xml+'.xml');
      end else begin
         ShowMessage('Der Layer-Ads Server anscheinend kleinere Probleme , bitte Aktualisieren etwas später.');
   end;
   txt.Free;
   ini.Free;
   end;
end;

[theo]

Dann kann ich in diesem Code Schnipsel nichts verdächtiges mehr erkennen.
Ausser du machst das ganze immer noch aus OnCreate heraus, dann kann es sein, dass der Zugriff auf TabControl1.TabIndex Probleme macht. Aber das hatten wir doch schon.
Macht das jetzt nur unterm Debugger Probleme oder auch ausserhalb?

[Christian]

Gilt das auch für Linux? Das ist mir so noch nicht aufgefallen.

Ne, macht der gdb nur unter Windows so.

[schnullerbacke]

Hmmm, und wenn txt.count <= 7 ist rasselt er auf, txt nicht per txt:= TStringList.Create initialisiert erst recht. Dann gibt es txt.Count garnicht erst.

if (txt <> nil) and (txt.count > 0) then

wäre da wohl vernünftiger und dann den text parsen auf das Vorkommen eines bestimmten Begriffes, dann ist man Problem schonmal sicher los. Wegen der "Kurzschluß-Behandlung" boolscher Ausdrücke versucht er bei (txt = nil) den 2ten Teil garnicht erst.

[Christian]

Waäre ja auch unsinnig wenn eine Bedingung fehlschlägt auch noch die andere zu testen dazu musst schon or nehmen

[theo]

@Schnullerbacke: Wovon sprichst denn du jetzt wieder?
Hat das irgendwas mit Eugen's Problem zu tun?

[EugenE]

so nach mehreren versuchen habe ich die tabcontrol entfernt und es mit buttons gemacht , der fehler beim debuggen kommt immernoch aber dafür funktioniert das programm so wie es soll , *freu*

Danke an Alle =)