Hallo,
vieleicht kann mir ja jemand helfen. Folgendes Problem habe ich. Es gibt eine Textdatei mit unzähligen Datensätzen wobei jede Position einen bestimten Wert beinhaltet. Wie jann ich nun z.B den Wert 1,2 auslesen und in eine Variable soeichern. Oder gibt es eine andere Möglichkeit ? Hier der 1. Versuch.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
| AssignFile(jahrlei,'C:\Daten\Jahrbuch\jahrlei.txt');
reset(jahrlei);
table1.open;
x:=0;
up:=0;
inn:=0;
i:=0;
repeat
i:=i+1;
merk:=0;
x:=x+1;
readln(jahrlei,vv);
Application.ProcessMessages;
// Land
for j:=1 to 2 do land[j-0]:=vv[j];
bi:=2;
land[0]:=chr(bi);
edit1.Visible:=TRUE;
edit1.text:=land;
until(eof(jahrlei));
// Kreis
repeat
for j:=3 to 4 do kreis[j-2]:=vv[j];
bi:=2;
kreis[0]:=chr(bi);
until(eof(jahrlei));
// Betriebsnummer
repeat
for j:=5 to 12 do bnr[j-4]:=vv[j];
bi:=8;
bnr[0]:=chr(bi);
edit2.visible:=TRUE;
edit2.text:=kreis;
until(eof(jahrlei)); |
leider funktioniert das nich so wie ich es mir vorgestellt habe.
Moderiert von 
Tino: Code-Tags hinzugefügt.
