Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: mehrere Datensätze in Datei schreiben und wieder Auslese

    Delphi
    by saibotq, 3. Dez 2005
  Erstmal vielen Dank für die Hilfe, trotzdem hat es irgendwie so noch nicht geklappt. Mir ist aber zum Glück eine andere Idee gekommen, ohne das ******* EOF:
  
  seek(KSK,0);
  
  for i:=0 to filesize(KSK)-1 do
  begin
  read (KSK, vergleich);
  if vergleich.nr=eingabe.nr then
  if vergleich.pin=eingabe.pin then
  label5.caption:=(floattostr(vergleich.stand));
• Forum: Sonstige Fragen zu Delphi

  Re: mehrere Datensätze in Datei schreiben

    Delphi
    by saibotq, 2. Dez 2005
  schon mal vielen dank, das erste problem ist gelöst :-D
  
  jetzt kriege ich nur den fehler "Versuch hinter dem Dateiende zu lesen" an dieser Stelle:
  
  while EOF(KSK)=false do
  begin
  read (KSK, vergleich);
  if vergleich.nr=eingabe.nr then
  if vergleich.pin=eingabe.pin then
  label5.caption:=(floattostr(vergleich.stand));
• Forum: Sonstige Fragen zu Delphi

  mehrere Datensätze in Datei schreiben und wieder Auslesen

    Delphi
    by saibotq, 2. Dez 2005
  N'abend,
  
  ich versuche in eine Datei mehrere Datensätze von einem benutzerdefinierten Typ reinzuschreiben. Das Problem ist, dass es irgendwie nicht klappt mehr als einen Datensatz in die Datei zu schreiben, ohne den ersten Datensatz zu überschreiben.
  
  procedure TForm1.Button2Click(Sender: TObject);
  var eingabe:Kontotyp;
  
  begin
  assignfile (KSK, 'KSK.dat');
  rewrite (KSK);