AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Speichern und Öffnen von eigenen Dateien (tSave- / tOpenDial
Thema durchsuchen
Ansicht
Themen-Optionen

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

Ein Thema von danielkussin · begonnen am 26. Nov 2003 · letzter Beitrag vom 28. Nov 2003
 
Blechwolf

Registriert seit: 9. Sep 2003
Ort: Aachen
126 Beiträge
 
Delphi 7 Professional
 
#2

Re: Speichern und Öffnen von eigenen Dateien (tSave- / tOpen

  Alt 26. Nov 2003, 14:53
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
Ein Schiff im Hafen ist sicher. Aber dafür werden Schiffe nicht gebaut. (engl. Sprichwort)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:00 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz