| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Считывать построчно тхт
alexdn © (2011-07-21 03:50:00)Вот примерно
f:textfile;
AssignFile(F,FNameM);
reset(F);
seek(f,1);
readln(f);
form2.hP1:=StringToColor(f);
ошибка на seek, но я вообще не помню можно ли так считывать построчно..
mike (2011-07-24 11:34:00) [21]
> а что не так..?
А что такое f?
alexdn (2011-07-24 11:22:00) [22]> mike (24.07.11 10:26) [21]
> Особенно
> > StringToColor(f);
а что не так..?
mike (2011-07-24 10:26:00) [23]
> тогда тоже было правильно
Особенно
> StringToColor(f);
:)
alexdn (2011-07-24 09:34:00) [24]> Германн © (24.07.11 01:14) [19]
тогда тоже было правильно, просто я искал аналог seek, который работает только для записей, но увы не для тхт.
Германн (2011-07-24 01:14:00) [25]
> alexdn © (23.07.11 14:23) [14]
>
> > Германн © (23.07.11 13:18) [12]
> вообщем я сделал там так, простенько
Главное, что на этот раз ты использовал процедуру Readln "правильно"! А дальше - это уже твои заботы.
alexdn (2011-07-23 15:17:00) [26]можно было сразу отслеживать изменение системного реестра но мне хотелось с пикселями повозиться..
alexdn (2011-07-23 15:16:00) [27]Удалено модератором
alexdn (2011-07-23 15:10:00) [28]Удалено модератором
Примечание: Правила читаем
alexdn (2011-07-23 14:26:00) [29]f:textfile;
alexdn (2011-07-23 14:23:00) [30]> Германн © (23.07.11 13:18) [12]
вообщем я сделал там так, простенько
FNameM:='info.txt';
AssignFile(F,FNameM);
reset(F); x:=0;
While not eof(f) do //задаем цикл до конца файла
begin
readln(f, str); //читаем строку из файла в переменную str
if x=0 then hP11:=StringToColor(str);
if x=1 then p.X:=StrToInt(str);
if x=2 then p.Y:=StrToInt(str);
if x=3 then edit1.text:=str;
x:=x+1;
end;
где p: TPoint; координаты пикселя
Anatoly Podgoretsky (2011-07-23 13:31:00) [31]> Германн (23.07.2011 13:18:12) [12]
В данном случае в анонимную.
Германн (2011-07-23 13:18:00) [32]
> что то не понял. просто считывается строка из файла
> readln(f);
И кудатут считывается строка? В какую переменную?
alexdn (2011-07-23 10:57:00) [33]> Германн © (23.07.11 00:43) [10]
что то не понял. просто считывается строка из файла и преобразуется в цвет.
и почему сначала неявно в строку?
Германн (2011-07-23 00:43:00) [34]
> readln(f);
> form2.hP1:=StringToColor(f);
>
А это просто бред.
Тут просто "перемотали строку", а потом решили преобразовать файловую переменную "влендишным" способом сначала неявно в строку, затем явно в переменную TColor.
Германн (2011-07-23 00:37:00) [35]Seek для текстовых файлов не работает в принципе.
alexdn (2011-07-23 00:00:00) [36]> Dennis I. Komarov © (21.07.11 10:50) [7]
> Он пяткой в нос запрещает, а вот как прокомментировать то,
> что тут написано?
просто переменная с формы 2, из public..
Dennis I. Komarov (2011-07-21 10:50:00) [37]Он пяткой в нос запрещает, а вот как прокомментировать то, что тут написано?
alexdn (2011-07-21 10:41:00) [38]> Dennis I. Komarov © (21.07.11 10:29) [5]
>
> > readln(f);
> > form2.hP1:=StringToColor(f);
> >
>
> Это специально или ?
заратустра вроде ж не запрещает..
Dennis I. Komarov (2011-07-21 10:29:00) [39]
> readln(f);
> form2.hP1:=StringToColor(f);
>
Это специально или ?
alexdn (2011-07-21 10:09:00) [40]> brother © (21.07.11 05:51) [1]
да, так и сделал. только как-то так и не понял как строки нумеровать.. тупо поставил свой счётчик в while f not eof do, что-то вроде x:=x+1;
| |
Страницы: 