Forum: Datenbanken
Delphi
by scuby,
25. Aug 2005
Noch so als kleine Anmerkung:
Das Program soll den letzten Zahlenwert der in LFDNR steht nachschlagen, besser gesagt, den höchsten und dann wieder einen hören anhängen!
Bsp.:
LFDNR
1
2
3
Forum: Datenbanken
Delphi
by scuby,
25. Aug 2005
Der Wert 'Label' der in LFDNR steht kann keine Altlast sein, denn er wird immer wieder eingetragen, also muss in der Anweisung etwas falsch sein!
Die Tipps habe ich befolgt uns Soucrecode aufgeräumt.
Forum: Datenbanken
Delphi
by scuby,
25. Aug 2005
Du hattest recht buffer hat den Wert Label und kann ihn daher nicht verareiten, aber nun kommt ja die frage, warum hat Buffer den Wert Label?
Ich stell mal die ganze Procedure rein, villeicht findet ihr ja den Fehhler, weil momentan kann ich ihn nicht orten.
procedure TForm3.Button1Click(Sender: TObject);
var lfdnr,buffer1 : integer;
var buffer,s,k : string;
begin
i := 1;
lfdnr := 0;
s...
Forum: Datenbanken
Delphi
by scuby,
25. Aug 2005
repeat
begin
lfdnr := lfdnr + 1;
while not Query1.Eof do
begin
buffer:= query1.Fieldbyname ('LFDNR').AsString;
buffer1 := strtoint(buffer);
if (buffer1 = lfdnr)then
begin
query1.Next;