vor sich hin programmieren könnte so lustig sein, wenn es da nicht diese lästige Probleme gäbe an denen man sich festbeißt. Hier ist eins davon:
Hier ist die Deklaration. Unter anderem von Dateiinhalt...
Code: Alles auswählen
private
Dateiinhalt: TStringlist;
procedure open();
public
constructor create();
procedure saveAt(section:String; content:TStringlist);
function loadFrom (section:String):TStringlist;
Code: Alles auswählen
constructor textfilehanler.create();
begin
Dateiinhalt:=TStringList.Create;
end;
Code: Alles auswählen
procedure textfilehanler.open();
begin
Dateiinhalt.loadfromfile('whiteboard.txt');
end;
Code: Alles auswählen
function textfilehanler.loadFrom(section: String): TStringlist;
var relevanterContent: TStringlist; zeile,i:integer;
begin
relevanterContent:=Tstringlist.Create();
zeile:=0;
open();
for i:=0 to Dateiinhalt.count-1 do
begin
if Dateiinhalt[i] = section then
begin ...
Ein ShowMessage als erste Zeile im constructor wird schon gar nicht ausgeführt. Setze ich das ShowMessage in die erste Zeile der Methode open(), dann wird es noch vor dem Absturz ausgeführt.
Wo liegt mein Denkfehler?? Hat jemand spontan nen Geistesblitz?
Vielen Dank!