Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Versuch hinter dem Dateiende zu lesen

    Delphi
    by RhodosGuard, 15. Jun 2012
  procedure TForm1.Button5Click(Sender: TObject);
  var key:String;
  i:integer;
  h:integer;
  begin
  assignfile(woert,'Wörterbuch.dat');
  Reset(woert);
  key:=Inputbox('Abfrage','Welches Wort löschen?(bitte das englische Wort eingeben)','');
  for i := 1 to filesize(woert) do begin
  read(woert,Woerterbuch);
• Forum: Object-Pascal / Delphi-Language

  AW: Versuch hinter dem Dateiende zu lesen

    Delphi
    by RhodosGuard, 14. Jun 2012
  Ich weiß jetzt nicht nach wem ich mich richten soll.
  
  
  Also bei mir gibt Filesize im Prinzip die Anzahl der Wörter wieder die ich gespeichert habe was in meinem Fall ja auch gewollt ist
  
  
  Schon mit einer Repeat-Until schleife probiert, kein Erfolg
  
  
  Habe das so gelernt und es ist für mich übersichtlicher wenn ich für jeden Verarbeitungsschritt meine feste Regel zum Öffnen und...
• Forum: Object-Pascal / Delphi-Language

  AW: Versuch hinter dem Dateiende zu lesen

    Delphi
    by RhodosGuard, 13. Jun 2012
  Habe denselben Fehler und Blicke grad net was da falsch ist :|
  
  Ist mein projekt für Informatik und nunja ich verzweifel da dran.
  
  Mein Problem ist, dass das Programm entweder das Wort nicht bis ans Ende kopiert, oder ich den Datei-Fehler erhalte.
  Setze ich bei der Procedure löschen Filesize(woert)-2 ein kopiert mir es das nicht auf den letzten Platz, wenn ich Filesize(woert)-1 eingebe...