Форум: "Основная";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];
ВнизРабота со StringList Найти похожие ветки
← →
DN (2002-10-21 11:24) [0]Кто нибудь может подсказать, каким свойством класса StringList можно проанализировать посимвольно значение конкретной строки в переменной этого класса
← →
Skier (2002-10-21 11:24) [1]for ii := 1 to Length(StringList[jj]) do begin
//...........
end; //for
← →
DN (2002-10-21 11:35) [2]Не совсем то, что надо, это у меня есть
List.LoadFromFile(OpenDialog2.FileName);
for I := 0 to List.Count - 1 do
begin
...
end;
А как прочитать эту строку в begin на предмет выявления ненужных символов и их последующего удаления?
← →
Skier (2002-10-21 11:41) [3]>DN
> на предмет выявления ненужных символов и их последующего
> удаления?
Pos(Substr, List[I]) +
Delete(List[I],...)
← →
Separator (2002-10-21 11:47) [4]
var
St: string;
i, j: integer;
List1, List2: TStringList;
begin
if OpenDialog1.Execute then
begin
List1:= TStringList.Create;
List2:= TStringList.Create;
List1.LoadFromFile(OpenDialog1.FileName);
for i:= 0 to List1.Count - 1 do
begin
St:= List1.Strings[i];
for j:= 1 to Length(St) do
if St[j] in ["A", "a"] then
Delete(St, j, 1);
List2.Add(St)
end;
Memo1.Lines.Assign(List2);
List1.Free;
List2.Free
end
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.015 c