Delphi-Quellcode:
function countchar(s,signe:string):integer;
var I:integer;
begin
for I:=1 to length(s) do
if s[I]=signe then
result:=result+1;
end;
function extraction(s,signe:string;n:integer):string;
var I:Integer;
begin
for I:=1 to n-1 do
begin
delete(s,1,pos(signe,s));
end;
if pos(signe,s) > 0 then
result:=copy(s,1,pos(signe,s)-1) else
result:=s;
end;
bei mier funktioniert es! muss nur in die funktion deinen string, dein trennzeichen einsetzen
nacher deine Funktion mit einer for schleife auffrugen
Delphi-Quellcode:
for I:=1 to countchar('deine string','deinetrenzeiche') do
begin
lb.items.append(extraction('deine string','deinetrenzeiche',I);
end;
müsste theoretisch funktionnieren