Hallo MrSpock,
also zu deinen Fragen:
Zitat:
Woher kommt und was ist anderedaten.lesepos?
Code:
function tDatensatz.LesePos:integer;
begin
LesePos:= pos;
end;
Das bedarf glaube ich einiger Erklärung:
Diese Funktion ist aus einer anderen
unit und gehört zu dem Objekt, welches für die verwaltung meiner personaldatenbank zuständig ist.
Die Variable pos ist ein Zeiger für die derzeitige Personalkarte auf die im Moment zugegriffen wird. Jetzt lag es mir nah, einfach die Variable pos als festen Wert für eine Person zu benutzen, weil ja jede Person einen eindeutig zugewiesenen pos-wert hat, nämlich jeweils seine eigene Karteikartennummer. Durch anderedaten.lesepos versuche ich jetzt die derzeitige Position der Personaldatenbank auszulesen und lese/schreibe dann die zu dieser Person gehörenden Kranktage, wobei ich den durch anderedaten.lesepos ausgelesenen Wert weiterverwend und als "Personenkürzel" weiterverwende.
Soviel dazu. *Zungeentknot*
Der Tipp mit dem memo feld ist Gold Wert, vielen Dank!
Allerdings verstehe ich nicht warum du mich darauf hinweist, dass ich die typisierte datei sequentiell auslesen solle, genau das habe ich doch gemacht. hier:
Code:
Procedure tform2.tageauslesen(id:integer);
var y,x,z:integer;
begin
form2.Show;
form2.memo1.clear;
x:=0;
z:=udaten.DateiEnde;
for y:=0 to z-1 do begin
udaten.lesen(y);
if udaten.Karte.Person=id then begin
form2.memo1.lines.add(udaten.karte.von + udaten.karte.bis);
x:=x+1;
end;
end;
end;
Weiterhin vielen Dank für jegliche Hilfestellung.
mfg
Jan