Forum: Object-Pascal / Delphi-Language
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
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
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...