@everdream
Du meinst also meine Datei erst in Excel in
xml bringen und dann
mit Delphi einlesen?
Sry, das aufspliten habe ich folgendermaßen gemacht
Delphi-Quellcode:
procedure Split(const aValue, aDelimiterChars: string; var Result: TStringList);
var
p, len: integer;
s: string;
begin
if Result = nil then Result := TStringList.Create;
Result.Clear;
S := '';
p := 1;
len := Length(aValue);
while p <= len do
begin
if Pos(aValue[p], aDelimiterChars) = 0 then
begin
s := s + aValue[p];
Inc(p);
end
else
begin
Result.Add(s);
s := '';
Inc(p);
while (Pos(aValue[p], aDelimiterChars) <> 0) and (p <= len) do Inc(p);
end;
end;
if s <> '' then Result.Add(s);
end;