 Regan hat folgendes geschrieben  : |
Hast du dir schonmal Warnungen von Delphi durchgelesen? Sicherlich nicht. Da steht jetzt aber folgende:
| Zitat: |
Variable i könnte undefiniert sein.
|
Also: Erst Dateikram, dann Schleife. |
Merke: Delphi Warungen lesen *Hinter die Ohren geschrieben*
---------------------------
Project1
---------------------------
Zugriffsverletzung bei Adresse 00403C80 in Modul 'Project1.exe'. Lesen von Adresse 8BD88B2F.
---------------------------
OK
---------------------------
Aber die versteh ich net
---
Moderiert von Narses: Beiträge zusammengefasst---
So, jetzt hab ichs:
Für alle die ein ähnliches Problem haben, lest die Tipps und so gehts:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| procedure TForm1.BRestartActionClick(Sender: TObject);
var
f : Textfile;
check: Tcomponent;
i :integer;
begin
assignfile(f, 'C:\Programme\Programmname\Merkliste.txt');
rewrite(f);
For i:=ComponentCount-1 Downto 0 Do
Begin
check:=Components[i];
If (check is TCheckbox) and TCheckbox(check).checked Then
writeln(f, TCheckbox(check).caption);
end;
closefile(f);
end; |
