Hallo,
vermutlich werden sich jetzt ein paar beschweren, vielleicht formuliere ich es auch nur falsch, aber ich komme einfach nicht weiter.
Ich versuche ein Programm mit einen Datenzähler zu schreiben und verwende den RecordCount (auf dem der Index mit AutoInc steht) zu verwenden
Ich habe eine Access-Datenbank mit ADO und DataSource eingebunden.
Mein Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| var
Lfdnr, RepNummer: String;
Zahl: Array[1..5] of String;
begin
Lfdnr := IntToStr(tblReparatur.RecordCount);
Zahl[1] := '00000';
Zahl[2] := '0000';
Zahl[3] := '000';
Zahl[4] := '00';
Zahl[5] := '0';
if lfdnr < '10' then RepNummer := Zahl[1] + Lfdnr;
if lfdnr > '9' then RepNummer := Zahl[2] + Lfdnr;
if Lfdnr > '99' then RepNummer := Zahl[3] + Lfdnr; |
Vielleicht kann mir wer einen Denkanstoß geben.
LG
Moderiert von 
Narses: Delphi-Tags hinzugefügt
