Скачать: CL | DM;

требуется разделить данные из колонки   Найти похожие ветки 

← →
Silenser ©   (2002-12-04 07:35) [0]

требуется разделить данные из колонки, разделитель пробел и разнести их по разным колонкам. Не пойму что происходит то летит вся таблица, то только первый цикл происходит. Не могу придумать как организовать цикл.

---

← →
stone ©   (2002-12-04 09:26) [1]

function SplitRow(S, spliter: string; sl: TStringList): boolean;
var
i : integer;
si : string;
begin
sl.Clear;
while Length(S)>0 do
begin
for i := 1 to length(S) do
begin
si := copy(S, i, Length(spliter));
if si = spliter then
begin
sl.Add(copy(S, 0, i-1));
s := copy(S, i+Length(spliter), length(S)-i);
break;
end;
if (si <> spliter) and (i = Length(S)) then
begin
sl.Add(copy(S, 0, length(S)));
s := "";
break;
end;
end;
end;
if sl.Count > 0 then Result := true else Result := false;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c