Forum: Object-Pascal / Delphi-Language
Delphi
by norbert3,
30. Jun 2006
Hey,
jetzt funktioniert alles einwandfrei!!! :drunken:
Die .indexOfhabe ich noch nicht getestet, werde es aber später mal testen.
Danke nochmal
Norbert
Forum: Object-Pascal / Delphi-Language
Delphi
by norbert3,
30. Jun 2006
Hey
allso, erstmal möchte ich mich für die Ausdauer und Bemühungen bedanken. Es ist schon toll. :mrgreen:
Ich habe so eben den Code aktualisiert und jetzt ist das Ergebnis anders herum. Das heißt, es wird der letzte Tab nicht angesprochen.
Hast du eventuell dafür noch einen Vorschlag?
Norbert
Forum: Object-Pascal / Delphi-Language
Delphi
by norbert3,
29. Jun 2006
Ich habe es nun mal so übernommen:
begin
suche := Edit1.Text;
dataModule1.ABStblName.Locate('Anzeige',suche,+);
i := 0;
gefunden := false;
while (not gefunden) and (i < TabControl1.Tabs.Count -1) do
begin
if TabControl1.Tabs = DataModule1.ABStblName.FieldByName('Anzeige').value then gefunden := True;
Forum: Object-Pascal / Delphi-Language
Delphi
by norbert3,
29. Jun 2006
wo kommt die function hin?
inc(i)
norbert
Forum: Object-Pascal / Delphi-Language
Delphi
by norbert3,
29. Jun 2006
Hey,
mit TabControl1 hab ich es probiert und muss Hawkeye219 recht geben. Der Rechner stürtzt beim Ausführen ab.
norbert
Forum: Object-Pascal / Delphi-Language
Delphi
by norbert3,
29. Jun 2006
hey, wir nähern uns dem Ziel.
Der erste Fehler ist behoben, aber ein neuer ist erschienen.
TabControl1.Tabs.Text
Der Cursor bleibt hinter dem i stehen.
kontakt.pas(382): Record, Objekt oder Klassentyp erforderlich.
Mfg Norbert
Forum: Object-Pascal / Delphi-Language
Delphi
by norbert3,
29. Jun 2006
Hey
var suche: String;
gefunden : Boolean;
i: Integer;
begin
suche := Edit1.Text;
dataModule1.ABStblName.Locate('Anzeige',suche,+);
i := 0;
Forum: Object-Pascal / Delphi-Language
Delphi
by norbert3,
29. Jun 2006
Hey mkinzler,
könntest du mit einem Codeschnippsel mir auf die Sprünge helfen?
Mfg Norbert
Forum: Object-Pascal / Delphi-Language
Delphi
by norbert3,
29. Jun 2006
Hallo,
danke nochmals für den Tip. Funktioniert wunderbar. Einen Schönheitsfehler gibt es noch.
Wenn ich über mein Suchfeld im geöffneten Formular einen Namen eingebe, springt leider der Tab nicht mit. Die richtigen Daten des ausgewählten Satzes werden jedoch angezeigt.
Suchfunktion:
suche := Edit1.Text;
dataModule1.ABStblName.Locate('Anzeige',suche,+);
Forum: Object-Pascal / Delphi-Language
Delphi
by norbert3,
28. Jun 2006
Hey,
danke für die schnelle Antwort. Ich werde es morgen in Angriff nehmen.
MfG Norbert
Forum: Object-Pascal / Delphi-Language
Delphi
by norbert3,
28. Jun 2006
Hallo,
der Code istprocedure TForm1.FormCreate(Sender: TObject);
Forum: Object-Pascal / Delphi-Language
Delphi
by norbert3,
28. Jun 2006
Hallo Leute,
ich habe wiedermal ein Problem. Ich habe in einem Formular ein TabControl eingebaut.
Die Tab´s werden automatisch mit dem Familiennamen gefüllt.
TabControl1.TabHeight := 25;
with DataModule1.ABStblName do
begin
open;
while not EOF do
begin