Hallo,
Zitat von
magsec_87:
if (pos(edit1.Text,','))>0 then
Soll das nicht andersrum sein?
if (pos(',', edit1.Text))>0 then
Das hast du gleich an etlichen Stellen zu stehen.
Zitat von
magsec_87:
delete(ltempd,0,pos(edit1.Text,',')+1);
Zitat:
Wenn index größer als die Länge von String oder kleiner als 1 ist, werden keine Zeichen gelöscht.
Also ab 1 geht es los und nicht bei 0.
delete(ltempd, 1, pos(',',edit1.Text));
Zitat von
magsec_87:
loades.en[1]:=copy(edit2.Text,0,length(edit2.Text));
Was soll das denn bringen?