problem mit Writeln, bitte helft mir...

[mbamler]

Zitat:

Zitat von mmfembr

ich hab's nun versucht mit einer anderen variable, was jedoch nicht gegangen ist. zusätzlich versuchte ich es wie im beispiel von mbamler was auch nicht geht da die typen miteinander inkonpatibel sind...

folgender Code funktioniert 100%:



procedure TForm1.Button1Click(Sender: TObject);
var
hexarray : array[0..7] of String;
y : Word;
Testvariable : string;
Tfile : TextFile;
begin
hexarray[0] := 'AA';
hexarray[1] := 'FF';
hexarray[2] := '00';
hexarray[3] := '09';
hexarray[4] := '01';
hexarray[5] := 'BB';
hexarray[6] := 'DF';
hexarray[7] := 'CA';

Assignfile(Tfile,'C:\temp\test.txt');
Rewrite(Tfile);

For y := 0 to 7 do
begin
Writeln(Tfile, hexarray[y]);
end;

CloseFile(Tfile);
end;

[mmfembr]

nochmals besten dank für eure mühe, meine software funktioniert jetzt einwandfrei, hatte nur noch dass problem dass ich einen array abgefragt habe , welcher 0..7 ist und ich habe 0..8 abgefragt...

gruss mmfembr

:coder:

[turboPASCAL]

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. :gruebel: Die Fehlerprüfung solltest du aber machen.