Ungültige Zeigeroperation

[Fallenzer]

Hallo und guten Tag,

bei einer Prozedur ist folgender Fehler aufgetreten: UNGÜLTIGE ZEIGEROPERATION

Delphi-Quellcode:

var
  Form4: TForm4;
sl,sk:tstringlist; sessio: integer;
implementation
  uses Unit1, unit3;
{$R *.dfm}
{...}
procedure TForm4.Button1Click(Sender: TObject);
begin
  sl.LoadFromFile('.\Market\info.txt'); 
sk.Loadfromfile('.\Market\lastsession.txt');
sl.Add(''); 
sl.Add('Einkauf-Nr.: ' + sk.strings[0]); 
sl.add(''); 
sl.Add('Produkte:'); 
sl.add(''); 
sl.Addstrings(Form1.Listbox2.Items); 
sl.add(''); 
sl.add('Total: ' +  Floattostrf(priz, ffcurrency, 4, 2)); 
sl.Add('Give:  ' + Floattostrf(money, ffcurrency, 4, 2)); 
sl.Add('Back:  ' + Floattostrf(money-priz, ffcurrency, 4, 2)); 
sl.Add(''); 
sl.Add('Vielen Dank f�r Ihren Einkauf!!!'); 
sl.Add(''); 
sessio:=(Strtoint(sk.strings[0])+1); 
sk.free; 
sk.add(inttostr(sessio)); 
sl.SaveToFile('.\Market\Bon\' + sk.strings[0] + '.txt'); 
sk.savetofile('.\Market\lastsession.txt'); 
sl.Free; 
sk.free;
end;

Ich würde mich auf eure Hilfe freuen. Vielen Dank

[striderx]

wie wäre es mit

Delphi-Quellcode:

SL  := tStringList.Create;
SK  := tStringList.Create;

[mensch72]

weil heut Silvester: (und die Antwort zuvor mit deinen Zeilen leider immer noch nicht funktioniert)

Tip 1:
erzeuge selbst keine globalen Variablen (sl,sk:tstringlist; sessio: integer

Tip 2:
gehe ALLE mitgelieferten VCL-Beispiele von Delphi durch und suche dir da etwas, was deiner "GUI" und deiner "Funktion" am nächsten kommt

Tip 3:
- lerne den Unterschied in der Benutzung zwischen stets dynamischen Objekten (...:T???) und staiischen Typen(...:integer)
- denke sehr intensiv über das von dir wohl derzeit zufällig hingeschriebene ".Free" nach, und erkenne was alles fehlt und wo das fehlende hingehört

Tip 4:
es gibt sowas wie Debugger, womit du einzen Zeile für Zeile abarbeiten kannst... dann weißt du erstens wo ein erstmalig Fehler auftritt(heißt nicht, dass das/dort die Ursache ist)

[Redeemer]

Zitat von mensch72:

weil heut Silvester: (und die Antwort zuvor mit deinen Zeilen leider immer noch nicht funktioniert)

Tip 1:
erzeuge selbst keine globalen Variablen (sl,sk:tstringlist; sessio: integer

Zusatz: Globale Variablen sind Variablen, die weder Teil einer Klasse (dort nennt man sie Felder) noch einer Methode sind (lokale Variablen).
Wie mensch72 sagt, sollte man auf globale Variablen verzichten.

Noch ein Zusatz: try..finally..end.

Zitat von mensch72:

Tip 3:
- lerne den Unterschied in der Benutzung zwischen stets dynamischen Objekten (...:T???) und staiischen Typen(...:integer)

Das ist gemein, weil auch Records mit T beginnen, aber deren Speicher automatisch verwaltet wird, weshalb Records keinen Destruktor haben. Und zu allem Überfluss haben Aufzählungen (unterscheiden sich von Zahlen nur theoretisch) und Mengen auch ein T am Anfang.

[mensch72]

..."Das ist gemein, weil auch Records mit T beginnen"...
=> das ist nicht gemein, sondern zielführend lehrreich!... denn es bedeutet: wenns mit T??? beginnt IMMER Hirn einschalten und bewußt NACHDENKEN!

Auf dem (Einstiegs)Level reicht völlig die Erkenntnis, das man anfangs wie auch künftig NUR "string" oder "integer" in Delphi einfach so nutzen kann
Jetzt schon auf Details und Besonderheiten von SETS,RECORDS,ARRAYS einzugehen, halte ich in Anbedracht des Source schlicht für verfrüht.




...2020...
HappyNewYear

[Fallenzer]

Danke für eure Tipps...

Ich werde es mit TMemo versuchen...

[zeras]

Vielleicht erklärst du uns mal, was du machen willst. Ob ein Memo besser ist, als die Stringlisten?

Was mir noch aufgefallen ist:

sl.Add('Einkauf-Nr.: ' + sk.strings[0]); Wenn nun sk leer ist, weil es die Liste nicht gibt? Du solltest erst einmal prüfen, ob es die zu ladende Datei gibt. Dann noch prüfen, ob es den Index[0] auch gibt.
Das oben erwähnte try except würde hier auch Infos geben, wie auch das Debuggen mittels Debugger.

sessio:=(Strtoint(sk.strings[0])+1); Hier nun die Frage, ob sk.strings[0] überhaupt eine Zahl ist. Ansonsten fliegt dir das Programm auch um die Ohren. Ein TryStrToInt wäre hier hilfreich.

[p80286]

[QUOTE=Fallenzer;1454199]

Delphi-Quellcode:

sk.free; 
sk.add(inttostr(sessio));

Das ist eher sinnfrei!

Gruß
K-H