Aus dem Gedächtnis (so ungefähr):
Fehler := 0
str := LeseWaagenString()
// die ganze for-Schleife hätte man vielleicht
// durch ein if (Isnumeric(str)) erschlagen können....
for i := 1 to Laenge(str)
begin
if (str[i] not in "0".."9")
begin
Fehler :=1
break
end
end
if (Fehler != 0) then exit
leer := copy(str, a,
voll := copy(str, c, d)
nochirgendwas := copy(str, e, f) // vergessen was das war
if (leer >= voll) then Fehler := 2
// ... ich glaube es ging noch weiter[/code]
Ich hatte eine mehr als offensichtlich vorgegeben, und zwar
[code]Kosten_Art
Kosten_ID (PK)
Beschreibung
HTH,
Tonda