Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
ВнизПодскажите как решить эту задачу с вытаскиванием из строки куска текста. Найти похожие ветки
← →
SergVlad (2002-01-08 15:19) [5]Разбор строки для универсальности лучше делать в TStrings
По аналогии можно сделать и для ch: CharSet
procedure ParseText_(Lines : TStrings; const S : String; const ch: char);
var
x : Integer;
Temp : String;
begin
Lines.Clear;
if (S <> sNULL) then
begin
Temp := sNULL;
for x := 1 to Length(S) do
begin
if (S[x] = ch) then
begin
Lines.Add(Trim(Temp));
Temp := sNULL;
end
else
Temp := Temp + S[x];
end;
if (Temp <> sNULL) then Lines.Add(Trim(Temp));
end;
end; {ParseText_}
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c