преобразовать строку

← →
snake1977 (2004-02-10 16:55) [0]

Здравствуйте!! Точно помню что видел такой вопрос у вас и даже читал ответ. Но найти не получается :((
поскажите пожалуйста как разбить строку вида "str1|str2|str3|str4" при помощи TStringList

← →
staryx © (2004-02-10 17:07) [1]

Можно заменить "|" на #13#10, а потом у TStringList есть свойство, которое позволит загрузить строку, разбив ее.

← →
Devel © (2004-02-10 17:16) [2]

F1 + TStringList (свойства Delimiter и DelimitedText).

← →
snake1977 (2004-02-10 17:24) [3]

на Delimiter ругается Undeclared identifier

← →
Fay © (2004-02-10 17:26) [4]

А Delphi на F1, случайно, не ругается?

← →
Тимохов © (2004-02-10 17:28) [5]

> Fay © (10.02.04 17:26) [4]

Может у него дельфи старый - там вроде этого не было.

← →
Я (2004-02-10 17:29) [6]

var
SL: TStringList;

SL.Delimiter := "|";
SL.DelimitedText := YourText;

← →
Тимохов © (2004-02-10 17:30) [7]

> Я (10.02.04 17:29) [6]

Да нет этого у него - дельфи наверняка старая.

← →
snake1977 (2004-02-10 17:36) [8]

Delphi 5.0

Тогда, точно нет.

Настолько старая, что нет StringReplace? Ваще!

StartIndex := 1;
for I := 1 to Length(MyString) do
if MyString[I] = "|" then
begin
MyStringList.Add(Copy(MyString, StartIndex, I - StartIndex));
StartIndex := I + 1;
end;

См. рядом ветку, где сишник выпендривается (ее в Потрепаться отмодерировали). в названии ветки есть слово "strstok".

преобразовать строку Найти похожие ветки