Скачать: CL | DM;

помагите чайнику   Найти похожие ветки 

← →
nika_ufc ©   (2002-10-20 12:59) [0]

У меня есть матрица в 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.



---

← →
Song ©   (2002-10-20 13:12) [1]

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

---

← →
nika_ufc ©   (2002-10-20 14:19) [2]

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

---

← →
nika_ufc ©   (2002-10-20 14:43) [3]

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

---

← →
Song ©   (2002-10-20 14:45) [4]

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

...

---

← →
Song ©   (2002-10-20 14:46) [5]

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

---

← →
nika_ufc ©   (2002-10-20 15:19) [6]

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

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.


---

← →
andrey_pst ©   (2002-10-20 15:38) [7]

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

---

← →
alexproger ©   (2002-10-20 19:20) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.992 c