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.