Einzelnen Beitrag anzeigen

S20000

Registriert seit: 22. Apr 2008
84 Beiträge
 
#12

Re: Wörter in einem String isolieren

  Alt 19. Mai 2008, 08:01
@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;
  Mit Zitat antworten Zitat