Thema: Delphi Einfache Textdateien

Einzelnen Beitrag anzeigen

Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#2
  Alt 18. Apr 2003, 17:34
So auf Anhieb, könnte ich Dir jetzt nur mal ein wenig Source hintippen, aber nicht getestet

Delphi-Quellcode:
type
  // datensatz struktur
  TMyRec = record
    Wert1, Wert2: Byte;
    Wert3: array[0..50] of Char;
  end;

var
  // datei handle
  F: File of TMyRec;
  MyRec: TMyRec;

begin
  // datei auswählen
  AssignFile(F, 'C:\Temp\Datenschrott');
  // datei öffnen
  // bin mir nicht sicher, entweder so
  Reset(F);
  // oder so
  Reset(F, 1);

  // sechsten Datensatz ansteuern (von 0 an zählen)
  Seek(F, 5);
  // lesen
  Read(F, MyRec);
  // schreiben - jetzt der 7. Datensatz, da der sechste gerade gelesen wurde
  Write(F, MyRec);


  // datei schliessen
  CloseFile(F);
end;
Das sollte Dir auf jeden Fall schon einmal einen Start geben - ist eigentlich auch ganz einfach. In der Hilfe, einfach mal nach den Stichwörtern suchen, weitere Vorschläge werden gezeigt.

......
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat