hmmm
Hätt ja sein können dass "Access Violation" was bestimmtes ausdrücken soll...
Also wenn ich liste[0] ma watche (Strg+Alt+W) steht da genau das drin was drin stehn soll...nämlich die erste zeile aus der textdatei.
Und in das Memo1 soll ja was reingeschrieben werden also is doch egal was drinsteht und initialisiert is es denk ich ma ^^ zumindest is es auf der Form und so
oder was is genau mit initialisiert gemeint?
Den ganzen text kann ich kaum posten weil das irgendwie dann alles sein kann
ich poste mal hier die prozedur in der liste initialisiert wird mit dazu
Also das ganze:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
| procedure TForm1.ffnen1Click(Sender: TObject);
var liste:TStringlist;
begin
if Form1.oeffnen.Execute then
begin
liste:=TStringlist.Create;
liste.LoadFromFile(oeffnen.filename);
if liste[liste.count-1]<>'ja' then
passwortcheck(true,liste)
else
begin
Application.CreateForm(TForm4, Form4);
Form4.Showmodal;
end;
end;
end;
procedure TForm1.passwortcheck(valid:boolean; liste:TStringlist);
var n:integer;
begin
with Form4 do
begin
memo1.Text:=liste[0];
if valid then
begin
combobox1.itemindex:=strtoint(liste[liste.count-4]);
case combobox1.itemindex of 0: spinedit1.value:=strtoint(liste[liste.count-2]);
1: spinedit1.Value:=-strtoint(liste[liste.count-2]);
3: ed_muster.text:=liste[liste.count-2];
end;
end;
checkmodus(valid);
end;
end; |
in Zeile 23 hört er dann auf
den sinn dahinter versteht man erst wenn man das pogramm kennt...hab aber kb das jetzt zu erklären (zumahl das irrelevant is
)
