Delphi Dzielenie textu

[komar_rk]

Witam mam takie funkcje

  procedure Split(const Delimiter: Char;Input: string; const Strings: TStrings) ;
begin
   Assert(Assigned(Strings)) ;
   Strings.Clear;
   Strings.Delimiter := Delimiter;
   Strings.DelimitedText := Input;
end;

i

procedure m_read(s:string);
var

A: TSTringList;
Selected :string;
begin
A := TStringList.Create;
Split(',', s, A);
name:= (a[0]);
dist:= (a[1]);
end;

Dzielą one mój text jednak jest pewien problem gdy mam w tekście spację to uznaje ją za znak dzielący (przecinek) Jak mogę temu zapobiec?
Z góry dziękuje.

 

[Klawisz95]

Witam!

Dawno nie było mnie, ale ja to bym użył sobie na Twoim miejscu własnej funkcji która by dzieliła tekst...
Skanowałoby każdy znak, jeżeli znalazłoby [spację] - to by dzieliło, ale jeżeli by tekst który aktualnie skanował był w cudzysłowiu ", to by pomijało tą spację i wszystkie spacje znajdujące się poniędzy dwoma cudzysłowami. Z pomocą przychodzi tutaj pętla for, oraz kilka zmiennych...
Dawno nie pisałem w delphi, to nie za bardzo chce mi się pisać, dla tego dałem Ci wskazówkę jak można rozwiązać Twój problem.

Pozdrawiam.