Per SEEK bestimmte Zeichen aus(in) Datei lesen(schreiben)

Andysaw · Beiträge: 30

Hallo an alle !

Zur Info allgemein:
Ich hab alle meine Fragen hier beantwortet bekommen (bis auf dosproggy starten doch ich lass es sein ), und freue mich hier die Hilfe bekommen zu haben. (Das so mal zum schleimen)

Nun zu meinem Problem:
Ich hatte füher mal angefragt wie ich dateien auslesen soll. Als ersten Ansatz hatte ich ein Proggy das mir die ganze Datei in einen String liest(ging nicht anders Delhi konnte das LF und das CR nicht erkennen) und dann mittels arrays und einigen Schleifen die Zahlen zusammensetzt die ich brauche.Nun wurden die Ausgabedateien doch noch geändert und ich konnte es ganz normal mit readln lesen. Mein Fehler war ich hab die alte Unit gelöscht und die brauch ich jetzt.

Die Datei ist in diesem Format:

Werte

Wert1 in m : 12
Wert2 in °C : 10
........................
........................
und so weiter und so fort.

Meine neue Zielsetzung ist die Zahlenwerte Lesen zu können und in ein editfeld darzustellen.(Meinetwegen auch erst in eine Datenbank und dann per DBEdit) So dass man sich die Werte erst anschauen kann und wenn sie einem nicht passen ändert man sie in dem Edit feld. Dann knopf übernehmen und die aktuellen Werte überschreiben die alten Werte.

Ufff...

Ich hab mich selber wieder an Seek rangesetzt aber irgendwie bekomm ich das nicht mehr hin. Ich würd das gern auch ohne die zusammensetzerei wie vorher machen.

Wer also einen Lösungsansatz (oder besser eine Lösung ..gg) hat melde sich bitte !

MfG
Andy

DJ_Apfel · Beiträge: 31

zum Beispiel so hier:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure TfrmMain.FormCreate(Sender: TObject);

var
  adress_datei: file of TAdressen;      // Dateivariable
  adressen: TAdressen;                  // Recordvariable

begin

  // Dateinamen mit Variablen verbinden
  AssignFile(adress_datei,'test.dat');

  aktueller_datensatz := 1;

  if FileExists ('test.dat') then begin           // wenn Datei existiert dann lesen
    Reset(adress_datei);
    Seek(adress_datei,aktueller_datensatz - 1);
    Read(adress_datei, adressen);
    with adressen do begin
      txtName.Text       := LEER;
      txtVorname.Text    := LEER;
      txtOrt.Text        := LEER;
      txtPlz.Text        := LEER;
    end; // end-with
  end  // if-end
  else begin
    ShowMessage('Es wurde keine Datendatei gefunden, neue Datei wird erstellt.');
    Rewrite(adress_datei);                      // ansonsten Datei erzeugen
  end; // else-end

  CloseFile(adress_datei);

end; // proc-end

_________________
Nur tote Fische schwimmen mit dem Strom!

IRC -> Server: east.gamesnet.com Port: 6667
Raum: #clan-babies

Andysaw · Beiträge: 30

ooops...wieder mein fehler...

das wäreja eine typisierte textdatei....(und wäre schön) ích habe leider eine untypisierte und unveränderliche textdatei (soll heissen ich kann die struktur nicht ändern) ich kann sie ausserdem nur komplett in einen string einlesen. also möchte ich versuchen die positionen der werte manuell vom stringanfang abzuzählen und dann mit seek zu treffen. (ist albern aber so kann es wenigstens funktionieren) ich werd mich am sonntag abend nochmal mit der seek funktion auseinandersetzen.

Aber wenn mir einer ein kurzes beispiel liefern würde, wie ich zb von der 10ten stelle bis zur 15ten stelle alles auslese wär es perfekt dann kann ich sonntag mein projekt beenden. (ich muss dann nur noch ne installationsgeschichte mit Installschield basteln, hab ich noch nie gemacht aber hab ne anleitung in einem Buch)

MfG
Andy

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme