achso, programme is nen array of record mit 2 strings
dann hier noch die treilenfunktion, da die daten so abgespeichert sind: "name;adresse\n name;adresse\n..."
Delphi-Quellcode:
function teile(s:string):TProgramm;
var
j:integer;
p:TProgramm;
begin
j:=0;
while (s[j]<>';') and (j<length(s)) do
begin j:=j+1; p.name:=p.name+s[j]; end;
setlength(p.name,j-1);
while j<length(s) do
begin j:=j+1; p.adresse:=p.adresse+s[j]; end;
result:=p;
end;