Форум: "Базы";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
Внизтребуется разделить данные из колонки Найти похожие ветки
← →
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 вся ветка
Форум: "Базы";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c