Moin, genau so geht das.
Verwende doch bitte Die Delphi-Tags. (Tastenkombi. ALT + d)
Den Namen der Variablen
TextFile würde ich umbenennen.
Delphi-Quellcode:
procedure THauptformular.sbtnKonvertierenClick(Sender: TObject);
const
Max_ArrayItems = 7;
var
hexarray :
array[0..Max_ArrayItems]
of String;
y : Word;
Testvariable :
string;
Tfile : TextFile;
.
.
.
begin
AssignFile(Tfile, ExtractFilePath(ParamStr(0)) + '
test.txt');
{$I-} // Fehlerprüfung
Rewrite(Tfile);
{$i+}
if IOResult = 0
then
begin
For y := 0
to Max_ArrayItems
do
Writeln(Tfile, hexarray[y]);
end else
begin
Messagebox(
Handle,'
','
Fehler', MB_ICONREEOR
or MB_OK);
end;
CloseFile(Tfile);
end;
// Edit: Huch, er hat es ja schon, die Beiträge wurden bei mir erst kor. Angezeigt als ich den Cache gelöscht hatte.
Die Fehlerprüfung solltest du aber machen.