RE: Разбивка строки на элементы

Patlatik — Wed, 19 Jul 2006 18:49:22 GMT

ну как это как? так как дельфи очень хромает с строковыми функциями, то можно просто пробежать в цикле по всем символам и склеить всё в массив. А так как я уже слегонца подзабыл синтаксис, то напишу тебе только основную базу этого алгоритма, да и ту с опечатками :)

[code]var tmStr:String;
var count:Integer;
var strArr: Array of String;
//и тут начинается сам подсчёт
tmString = "";
count = 0;
for i:=1 to str.length do
Begin
if (str[i] = " ")
Begin
strArr.setLength(count+1); //кажись так функция звалась
strArr[count] := tmString;
Inc(count);
tmString := "";
End Else
tmString := tmString+str[i];
End;
if (tmString <> "") Begin strArr.setLength(count+1); strArr[count] := tmString; End;[/code]

ну вот strArr - тот самый массив с этими самыми элементами :)

Разбивка строки на элементы

gastarbayter — Thu, 13 Jul 2006 15:40:20 GMT

Как можно разбить строку на элементы, если каждый элемент строки отделен друг от друга 1 и более символом "пробел"?

Релиб / Программирование / Delphi / Разбивка строки на элементы / Latest Posts

RE: Разбивка строки на элементы

Разбивка строки на элементы