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

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

помагите чайнику [D6, Win2k]

nika_ufc ©   (2002-10-20 12:59:00) 

У меня есть матрица в txt,в котором только единицы и нольики. Я читаю его в TStringList.как я магу обращаться к каждому элементу? С помощью этого кода моя затея не получаеться:

program Rectangle;

{$APPTYPE CONSOLE}

uses
SysUtils,Classes;

type TMas=array of array of integer;

var Matrix:TMas;
i,j :integer;
SL :TStringList;

begin
SL:=TStringList.Create;
SL.LoadFromFile("Somewere on the HDD Rectangle.txt");
for i:=0 to SL.Count-1 do
begin
for j:=0 to Length(SL[i]) do
begin
if SL[i,j]="1" then
SL[i,j]:="0"
end
end
end.



---

alexproger   (2002-10-20 19:20:00) [1]

В TStringList есть свойство Strings, там и смотри

---

andrey_pst   (2002-10-20 15:38:00) [2]

>> SL.Strings[i][j] и SL[i][j]одно и тоже
с чего Вы взяли ?
см. Song © (20.10.02 14:46)

---

nika_ufc   (2002-10-20 15:19:00) [3]

я знаю что так получаетсяб но почему не получается вот та?:

program Rectangle;

{$APPTYPE CONSOLE}

uses
SysUtils,Classes;

type TMas=array of array of integer;

var Matrix:TMas;
i,j :integer;
SL :TStringList;
begin
SL:=TStringList.Create;
SL.LoadFromFile("Rectangle.txt");
for i:=0 to SL.Count-1 do
begin
for j:=1 to Length(SL[i]) do
begin
if SL[i][j]="1" then
SL[i][j]:="0"; //SL.Strings[i][j] и SL[i][j] одно и тоже
end
end;
Readln
end.


---

Song   (2002-10-20 14:46:00) [4]

Почитайте книжку по Паскалю.

---

Song   (2002-10-20 14:45:00) [5]

Var TempString:String;
....
TempString:=Sl.Strings[i];
For j:=1 to Length(TempString) Do
IF TempString[j]="1" then ...

...

---

nika_ufc   (2002-10-20 14:43:00) [6]

пожалуиста ответите меня please

---

nika_ufc   (2002-10-20 14:19:00) [7]

я написал как показал Song но не получается, Выдает ошибку:
Left side cannot be assigned to
помогите Please

---

Song   (2002-10-20 13:12:00) [8]

IF Sl.Strings[i][j]="1" then...

---

Наверх