Fucs V1.0 - Frequently used Codes

[TheMiller]

Hi,

ist es bei euch auch so, dass sich das Programm aufhängt, wenn größere Codes gepostet werden? Wollte dies posten:

Delphi-Quellcode:

{Record deklarieren. Auf die Zeichenlänge achten, die
 nie mehr als 255 Zeichen enthalten darf.}

 type TAdressen = record
   Name:String[50];
   Str:String[40];
   Ort:String[20];
 end;

{Globale Variable deklarieren}

 var
   Form1: TForm1;
   datei: file of TAdressen;
   data : TAdressen;

{Daten schreiben}

 procedure TForm1.Speichern;
 begin
   try
     AssignFile(data, ExtractFilePath(ParamStr(0))+'Adressen.dat');
     IF FileExists(datei) THEN Reset(datei)
     ELSE ReWrite(datei);

     Edit1.Text:=data.Name;
     Edit2.Text:=data.Str;
     Edit3.Text:=data.Ort;

     seek(datei, filesize(datei));
     write(datei, data);
   finally
     CloseFile(datei);
   end;
 end;

 //Daten einlesen

 procedure TForm1.Speichern;
 var
   i:Integer;
 begin
   try
     AssignFile(data, ExtractFilePath(ParamStr(0))+'Adressen.dat');
     IF FileExists(datei) THEN Reset(datei)
     ELSE ReWrite(datei);

     for i:=0 to filesize(datei)-1 do
     begin
       seek(datei, filesize(i));
       read(datei, data);
       data.Name:=Edit1.Text;
       data.Str:=Edit2.Text;
       data.Ort:=Edit3.Text;
     end;
   finally
     CloseFile(datei);
   end;
 end;

Aber die Meldung war "Connection lost during query".

Doch kleine Codes gehen. Könnt ihr das bestätigen?

PS: Habe noch das Kopieren der Codes in die Zwischenablage ermöglicht.