zusammenfalten · markieren

Delphi-Quellcode:

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;
end
else
begin
k := inttostr(lfdnr);
Form4.Label14.Caption := k;
end;
end;
end;
until Query1.Eof;

Wenn ich diese Anweisung ausführe, kommt Folgende Fehlermeldung:
Label ist kein gültiger Integerwert, aber wo soll denn hier ein Label ein Integerwert sein??

THX
Scuby

Hi. Wenn du doppelt auf die Fehlermeldung klickst, springt Delphi zur entsprechenden Zeile im Source. Zeig mal nur diese Zeile.

Man liest sich, Stanlay

Edit: Oder kompiliert er ohne Fehler und macht erst beim Laufen der Anwendung Probleme?

So auf den ersten Blick seh ich nur dass Label hinten mit zwei "L" geschrieben ist (LabeLL).

Gruß
Daniel

Der Fehler kann meiner Meinung nach nur wegen diese Zeile kommen:

markieren

Delphi-Quellcode:

buffer:= query1.Fieldbyname ('LFDNR').AsString;
buffer1 := strtoint(buffer);

buffer hat hier evtl. den Wert 'Label' und den kann StrToInt() nicht verarbeiten. Kann das sein?

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.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var lfdnr,buffer1 : integer;
var buffer,s,k : string;
begin
i := 1;
lfdnr := 0;
s := 'select LFDNR from teilnehmer';
query1.close;
Query1.Sql.Clear;
Query1.Sql.Add(s);
Query1.ExecSQL;
Query1.Active:=true;
Query1.First;

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;
end
else
begin
k := inttostr(lfdnr);
Form4.Label14.Caption := k;
end;
end;
end;
until Query1.Eof;

label7.Caption := inttostr(i);
Form5.Label18.Caption := Label7.Caption;
form4.visible := true;
if Checkbox1.Checked = true then Label6.Caption := 'LSM';
if Checkbox2.Checked = true then Label6.Caption := 'EH';
if Checkbox3.Checked = true then Label6.Caption := 'FreshUp';
if Checkbox4.Checked = true then Label6.Caption := 'EHT';
if Checkbox5.Checked = true then Label6.Caption := 'EH (BG)';
if Checkbox6.Checked = true then Label6.Caption := 'AKN';
if Checkbox7.Checked = true then Label6.Caption := 'SSD';
if Checkbox8.Checked = true then Label6.Caption := 'SHL';
if Checkbox9.Checked = true then Label6.Caption := 'SDL';
if Checkbox10.Checked = true then Label6.Caption := 'AED';

Form4.Label2.Caption := Label6.Caption;
Form4.Label6.Caption := Edit1.Text;
Form4.Label8.Caption := Edit2.Text;
Form4.Label18.Caption := Edit3.Text;
Form4.Label12.Caption := Label6.Caption;
Form4.Label20.Caption := Form1.Label5.Caption;
Form4.Label38.Caption := Form1.Label4.Caption;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
Form6.visible := true;
Form3.visible := false;
end;

was soll das eigentlich

markieren

Delphi-Quellcode:

repeat
begin
lfdnr := lfdnr + 1;
while not Query1.Eof do
begin

entweder while oder repeat, denn deine whileschleife läuft bis eof und das repeat läuft genau so, also hat das repeat keinen Effekt. Und warum dort label drin steht liegt wohl daran das in der Datenbank eventuell schon "Label" drin steht

markieren

Delphi-Quellcode:

buffer:= query1.Fieldbyname ('LFDNR').AsString;
buffer1 := strtoint(buffer);

hmm und warum nicht gleich als Zahl auslesen/einschreiben ?? .. ( .AsInteger)
sollten ja eh nur Zahlen drinnen stehen (weil StrToInt) oder?..


EDIT:

Zitat von scuby:

warum hat Buffer den Wert Label?

Evtl. nur ne "altlast"?

Noch ne kleine Anmerkung zu deinem Sourcecode:

s := 'select LFDNR from teilnehmer';
query1.close;
Query1.Sql.Clear;
Query1.Sql.Add(s);
Query1.ExecSQL; <-- nur bei INSERT / UPDATE / DELETE-Statements
Query1.Active:=true;
Query1.First; <-- Nach dem Open (oder Active:=true) der Query steht diese immer auf dem ersten Datensatz, kannst du dir also sparen

Gruß
Daniel

Es gibt auch noch die Möglichkeit:

buffer1 := StrToIntDef(buffer, -1);

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.