| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа со StringList [D6, Win95/98]

DN ©   (2002-10-21 11:24:00) 

Кто нибудь может подсказать, каким свойством класса StringList можно проанализировать посимвольно значение конкретной строки в переменной этого класса

---

Separator   (2002-10-21 11:47:00) [1]


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;


---

Skier   (2002-10-21 11:41:00) [2]

>DN

> на предмет выявления ненужных символов и их последующего
> удаления?


Pos(Substr, List[I]) +
Delete(List[I],...)

---

DN   (2002-10-21 11:35:00) [3]

Не совсем то, что надо, это у меня есть

List.LoadFromFile(OpenDialog2.FileName);
for I := 0 to List.Count - 1 do
begin
...
end;

А как прочитать эту строку в beginна предмет выявления ненужных символов и их последующего удаления?

---

Skier   (2002-10-21 11:24:00) [4]

for ii := 1 to Length(StringList[jj]) do begin
//...........
end; //for

---

Наверх