Speichern und Öffnen von eigenen Dateien (tSave- / tOpenDial

[Blechwolf]

Salut,

da eigentliche die ganzen Filebehandlungen von Pascal in Delphi auch noch existieren, sollte es eigentlich funktionieren.

Anbei ein ungetester Beispielcode, der aber im groben das machen sollte, was Du brauchst. Allerdings halt nicht auf irgendwelche Indizes etc. angepasst wurde.

Delphi-Quellcode:

procedure readFromTxtFile();
var
  Line : string;
  PixArray : array[8,8] of integer;
  Linecount : integer;
  i : integer;
begin
  AssignFile(PixFile,'beispiel.txt');
  LineCount := 0;
  try
    reset(PixFile);
    while not (eof(PixFile)) do
      begin
        readln(PixFile,Line);
        for i := 0 to 8 do
          PixArray[Linecount,i] := Line[i];
        inc(LineCount);
      end;
  finally
    CloseFile(PixFile);
  end;
end;

In diesem Sinne viel Erfolg

Grüße

Wolf http://www-users.rwth-aachen.de/wolf...tballSmile.gif