Moin!
Ich hab mal nen kleinen Quellcode geschrieben um den String in ein Array einzutragen ... Geht bestimmt auch einfacher, aber mir is gar nix besseres eingefallen.
Delphi-Quellcode:
procedure PutInArray(
var b:
array of string; a:
string);
var x,y,k: integer;
p: boolean;
begin
p := true;
y := 1;
for x := 2
to length(a)
do
begin
if k > 0
then
begin
dec(k);
end
else
if p
then
begin
b[y] := '
';
p := false;
end;
if (a[x] = '
"')
and (a[x+1] = '
,')
and (a[x+2] = '
"')
then
begin
inc(y);
p := true;
k := 2;
end
else b[y] := b[y] + a[x];
end;
end;