TStringList

Jak rozdzielić string na poszczególne elementy TStringList?

Najprosciej StringReplace(Text,Separator,#13#10,[rfReplaceAll]);

Jak rozdzielić string na poszczególne elementy TStringList?

Są funkcje na 4p. Jedna to Split, a druga explode. Zresztą masz do tego odpowiedź w <font color="red">FAQ</span>

te funkcje rozdzielają akurat do tablicy, a nie do TStringLista, a sposób Szymka okazuje się tutaj lepszy. Może dodaj go do FAQ, Szymku?

procedure TForm1.Button1Click(Sender: TObject);
var
  caly : string;
  podzielony : TStringList;

begin
  caly := 'kilka slowek tu se jest';

  podzielony := TStringList.create;
  podzielony.text := stringreplace(caly, ' ', #13#10, [rfReplaceAll]);

  showmessage(podzielony.strings[0]);

  podzielony.free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  caly : string;
  podzielony : TStringList;

begin
  caly := 'kilka slowek tu se jest';

  podzielony := TStringList.create;
  podzielony.text := stringreplace(caly, ' ', #13#10, [rfReplaceAll]);

  showmessage(podzielony.strings[0]);

  podzielony.free;
end;

hi!
To ma być tak:

procedure TForm1.Button1Click(Sender: TObject);
var
   Caly : String;
   Podzielony : TStringList;

begin
   podzielony:=TStringList.Create;
   try
      Caly := 'kilka slowek tu se jest';
      podzielony.Add(stringreplace(caly, ' ', #13#10, [rfReplaceAll]));
      memo1.Lines.AddStrings(podzielony); // to wywal - tu Ci zobrazowalem na kontrolce TMemo dzialanie tego(lub komunikat ->
      showmessage(podzielony.strings[0]);//pokaz linie o ustalonym indeksie
   finally
       Podzielony.Free;
   end;
end;

Pozdrowka
Pepe

A co w tym moim kodzie jest złe?

A co w tym moim kodzie jest złe?

jest ok... zle sobie popatrzalem... pozdr.
pepe

te funkcje rozdzielają akurat do tablicy, a nie do TStringLista, a sposób Szymka okazuje się tutaj lepszy. Może dodaj go do FAQ, Szymku?

A co za problem lekko je przerobić, zeby dawały do StringLista?