Da hast Du aber echt starken Source:
Delphi-Quellcode:
for j:=3 to Form1.zwischenspeicher.Lines.Count do
begin
if Form1.zwischenspeicher.Lines[(j-3)*8+4]='1' then
begin
Abgesehen von dem
.Count
ist
.Lines[(j-3)*8+4]
doch arg fehlerträchtig. Stell Dir mal vor in Zwischenspeicher gibt es 100 Datensätze.....
Gruß
K-H