In Datenbank(Edit1.Txt) suchen

[mkinzler]

Zitat von xv300:

Inwiefern meinst du das?

Du darfst nur die Sätze zählen, welche du ins Grid einträgst
Was genau soll ich ändern, aber eigentlich hilft mir das ja auch (noch) nicht bei meinem jetzigen Problem[/quote]
Doch (auch in Verbindung mit Franks Antwort).

[xv300]

Möchtet ihr einem auf dem Schlauch stehenden vöölig überforderten Newbie mal kurz in gaaaaaaanz langsamen Schritten erklären, wo der Fehler liegt und am besten auch noch wie er zu beheben ist?


LiEbE GrÜßE

[jfheins]

Versuchs mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
begin
  Form2 := TForm2.Create(Form1);
  Form2.Show;
  Form2.Tabelle.Cells[0,0] := ' ';
  Form2.Tabelle.Cells[1,0] := 'Name';
  Form2.Tabelle.Cells[2,0] := 'Vorname';
  Form2.Tabelle.Cells[3,0] := 'Strasse';
  Form2.Tabelle.Cells[4,0] := 'PLZ';
  Form2.Tabelle.Cells[5,0] := 'Ort';
  Form2.Tabelle.Cells[6,0] := 'Telefon';


  while not eof(f) do
    begin
      read(f,Adresse);
      Satznummer := Satznummer + 1;

      with Adresse do
      begin
        if (pos(Form1.SUCHFELD.Text, Name) > 0) or (pos(SUCHFELD.Text, Vorname) > 0) then
        begin // Suchtext im Feld suchen, nicht umgekehrt
          Form2.Tabelle.Cells[0,Satznummer] := IntToStr(Satznummer);
          Form2.Tabelle.Cells[1,Satznummer] := Name;
          Form2.Tabelle.Cells[2,Satznummer] := Vorname;
          Form2.Tabelle.Cells[3,Satznummer] := Strasse;
          Form2.Tabelle.Cells[4,Satznummer] := PLZ;
          Form2.Tabelle.Cells[5,Satznummer] := Ort;
          Form2.Tabelle.Cells[6,Satznummer] := Telefon;
        end;
      end
      end
end;
end;

[DeddyH]

Ist f eigentlich eine globale Variable? Da das so aussieht, wo wird denn sichergestellt, dass immer vom Dateianfang aus gelesen wird?

[xv300]

Geht leider auch ned!

[DeddyH]

Ignoriert mich ruhig

[mkinzler]

Zitat von DeddyH:

Ignoriert mich ruhig

Er ignoriert alle Antworten, welche er nicht versteht. Ist einfacher als sich damit zu beschäftigen

[himitsu]

AnsiLowerCase+Pos ginge ja och noch

[Jens Hartmann]

Hallo,

ich hoffe du hast den Quellcode aus #43 nich nur kopiert. Weil dann kann es eventuell nicht gehen. (doppeltes begin, eventuell fehlendes end

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
begin 
  Form2 := TForm2.Create(Form1); 
  Form2.Show; 
...
....

Außerdem, solltest du wie DeddyH schon geschrieben hat mal nach der Var. f schauen. Wenn es eine glo. Var. ist, wo wird sie denn mit Daten geladen?

Gruß Jens

[mkinzler]

Ausserdem auch die andere Hinweise beachten