Datenbank durchsuchen...

[p80286]

Zitat von Thargeon:

Delphi-Quellcode:

type
  TP = Record
    Name  : String[20];
    VName : String[20];
    Straße : String;
    TelNr  : Integer;
  end;

...

Button um die Datei zu öffnen + nur zu schreiben:

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
begin

assignfile (f,Edit5.Text) ;
rewrite(f)
end;

"Straße" halte ich wegen des ß für nicht so gelungen. (auch mit 16Bit Charakters und UTF8!)
Über die 20 Stellen für Name und Vorname kann man streiten, aber der Straße würde ich auch eine Beschränkung verpassen ([80]?)

mit "rewrite(f)" ist die Datei leer! (oder überschrieben)

Und überhaupt für assign eine Button, für read einen Button, für close einen Button, das ist nicht so toll!
lieber so:

Delphi-Quellcode:

assignfile(f,meinedatei);
reset(f);
seek(f.....);
read(f,...);
close(f);

Gruß
K-H