Hilfe - Speichern Funktioniert plötzlich nicht mehr

[Finki]

Hey ich hab mal wieder ein Problem,

Das Programm will einfach nicht mehr speichern!

btnNew

Delphi-Quellcode:

procedure TForm1.btnNewClick(Sender: TObject);
begin
  if change then
  begin
  Memo1.Lines.Clear;
  end
  else
  begin
    Save(btnNew); //steht in der Library
  end;
end;

Library

Delphi-Quellcode:

procedure Save(Sender: TObject);
var
  textb : boolean;
  texts : string;
  long, long01, i : integer;
begin
        if Form1.SaveDialog.Execute then
        begin
        Form1.Memo1.Lines.SaveToFile(Form1.SaveDialog.Filename + '.txt');
        savepath := Form1.SaveDialog.FileName;
          long:= length(Form1.SaveDialog.FileName);
          textb:=false;
          i:=1;
          repeat
            begin
                texts:=copy(Form1.SaveDialog.FileName,long,i);
                long:= long-1;
                i:=i+1;
                if texts[1]='\' then
                begin
                  long01:= length(texts);
                  texts:=copy(texts,2,long01-1);

                  textb:=true;
                end;
            end;
          until  textb;
          Form1.Caption:=texts;
          Form1.StatusBar.Panels.Items[0].Text:=Form1.SaveDialog.Filename+ '.txt';
          texts:='';
          change:=false;
          save01:=false;
        end;
       Form1.SaveDialog.Free;
end;

mit der verlinkung passt alles, da es schon funtioniert hat.

folgende Fehler tretten auf: siehe anhang

[Finki]

hier sind noch die restlichen bilder

[Finki]

....und plötzlich funktioniert es wieder, hat jemand eine Ahnung warum?

[DeddyH]

Schau Dir mal den Wert von texts im ersten Schleifendurchlauf an. Wenn Du da auf das Zeichen an Index 1 zugreifst, was passiert dann wohl? Überhaupt, was versuchst Du da eigentlich zu erreichen?

[Finki]

den namen der datei rausfinden, ohne den C:\... qutasch

[Finki]

ich glaub ich ändere das thema auf "Hilfe mein lazarus macht Fehler wo gar keine sind!!!!"

was sagt bitte der fehler aus:

[DeddyH]

Für so etwas gibt es fertige Funktionen wie ExtractFilePath/ExtractFileDir/ExtractFileName/ExtractFileExt.

[p80286]

Zitat:

Zitat von Finki (Beitrag 1225472)

ich glaub ich ändere das thema auf "Hilfe mein lazarus macht Fehler wo gar keine sind!!!!"

Umgekehrt wird ein Schuh daraus, "Lazarus zeigt Deine Fehler an"

Zitat:

Zitat von Finki (Beitrag 1225472)

was sagt bitte der fehler aus:

wahrscheinlich hat eine Liste nur drei Einträge undDer Listenindex steht auf 3 (4.Eintrag, da die Zählung bei Null startet.)

Und wenn Du schon ExtractFilePath und Konsorten nicht willst, dann versuche doch wenigstens deine Routinen etwas einfacher zu strukturieren!

Delphi-Quellcode:

if length(Irgendeinstring)>0 then
  if Irgedeinstring[length(Irgendeinstring)]='\' then

und diese Zugriffe auf Form1.EineKomponente.Text sind auch nicht das Gelbe vom Ei. So etwas übergibt man als Parameter.

Gruß
K-H

[sx2008]

Deine Save-Procedure ist ziemlicher Käse.
(ich bin da etwas direkt; bitte nicht falsch verstehen)

1. Fehler:
das ist keine Procedure die in eine Library gehört, sondern es sollte eine Methode der Klasse TForm1 sein
2. Fehler:
alles ist in einem Block - nicht gut.
Abspeichern benötigt 3 Schritte a) Dateiname im Dialog erfragen b) abspeichern c) neuen Status anzeigen
Diese 3 Schritte sollte man sauber trennen und ggf eigene Funktionen/Methoden vorsehen.
3. Fehler:
Freigeben einer Komponente die automatisch von der VCL erzeugt wurde.

Delphi-Quellcode:

Form1.SaveDialog.Free;

<- das ist natürlich tötlich, weil die SaveDialog-Komponente beim 2. Mal zerstört ist und der Zeiger in SaveDialog auf ungültiger Speicher zeigt.

[Finki]

Vielen dank für die Wirklich ausführlichen Antworten! ich habs jetzt! :D

um nochmal auf das

Code:

ExtractFilePath/ExtractFileDir/ExtractFileName/ExtractFileExt

zurück zukommen.

was macht welcher befehl genau??

[DeddyH]

Geh doch mal auf unsere DP-Referenz. Da kannst Du dann jeden Befehl suchen, z.B. ExtractFilePath.

[Perlsau]

Mir fällt dazu nur eines ein: Grundlagen, Grundlagen und nochmal Grundlagen ...:?

[JamesTKirk]

Zitat:

Zitat von Finki (Beitrag 1225492)

um nochmal auf das

Code:

ExtractFilePath/ExtractFileDir/ExtractFileName/ExtractFileExt

zurück zukommen.

was macht welcher befehl genau??

Dafür gibt es etwas, dass sich Dokumentation nennt:

• ExtractFilePath
• ExtractFileDir
• ExtractFileName
• ExtractFileExt

Du könntest auch in Lazarus die Hilfe öffnen und dort nach den Funktionen suchen.

Gruß,
Sven