требуется разделить данные из колонки [D6, dBase, FoxPro]
Silenser © (2002-12-04 07:35:00)
требуется разделить данные из колонки, разделитель пробел и
разнести их по разным колонкам. Не пойму что происходит то летит
вся таблица, то только первый цикл происходит. Не могу придумать
как организовать цикл.
stone (2002-12-04 09:26:00) [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;
Наверх 
ЧАТ |
Орешник |
|
