Текущий архив: 2002.10.31;
Скачать: CL | DM;

Вниз

Работа со 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;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.011 c