Деление String по пробелу

← →
Ghost. (2002-01-15 08:57) [7]

Я дико извиняюсь просто торопился написал не ту функцию
function StrToArrays(str: string; r: string): TStrings;
var
j: integer;
Temp: TStringList;
begin
Temp := TStringList.Create();
while str <> "" do
begin
j := Pos(r,str);
if j=0 then j := Length(str) + 1;
Temp.Add(Copy(Str,1,j-1));
Delete(Str,1,j+length(r)-1);
end;
Result := Temp;
end;

тоесть я так понимаю нужно строку разделить на 3 или скока там через пробелы.
Может это не самый изящьный способ но сработает.
напимер
memo1.Lines:=StrToArrays(edit2.Text, " ")или какнить еще

Деление String по пробелу Найти похожие ветки