Форум: "Основная";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];
Вниз
помагите чайнику Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c
