[Delces]

Всем привет. Вообще нужно чтобы при нажатии на кнопку (button1) добавлялась цифра в txt файл...
1 2 3 ...

[Snake22]

Код:

AssignFile(f,'c:\1.txt');
Reset(f);//открываем фал для считывания последнего значения
while not Eof(f) do //переходим в конец файла
Readln(f,i);
inc(i);//увеличиваем считанное знаение
Append(f);//открываем файл для дозаписи
WriteLn(f,i);
CloseFile(f);

[Delces]

Сообщение от Snake22

Код:

AssignFile(f,'c:\1.txt');
Reset(f);//открываем фал для считывания последнего значения
while not Eof(f) do //переходим в конец файла
Readln(f,i);
inc(i);//увеличиваем считанное знаение
Append(f);//открываем файл для дозаписи
WriteLn(f,i);
CloseFile(f);

А можно пожалуйста поподробнее? Куда это вставлять или если не затруднот можете исходник сделать?

[Snake22]

Сообщение от Delces

А можно пожалуйста поподробнее? Куда это вставлять или если не затруднот можете исходник сделать?

это уже наглость =) весь код написал,в кнопку вставить его осталось

[Delces]

Сообщение от Snake22

это уже наглость =) весь код написал,в кнопку вставить его осталось

Спасибо огромное! Так я вставлял в кнопку... но переменные не указал Еще раз спасибо.

[Delces]

Появился еще вопрос. А возможно таким же образом подгрузить текст с цифрой? Чтобы перед цифрой выводился текст "номер"?

номер 1
номер 2
номер 3
номер 4
...

[Ildar-tsr]

Сообщение от Delces

Появился еще вопрос. А возможно таким же образом подгрузить текст с цифрой? Чтобы перед цифрой выводился текст "номер"?

номер 1
номер 2
номер 3
номер 4
...

Код:

WriteLn(f,'номер '+i);

Сходи сюда
http://pblog.ru/?p=14

[Snake22]

только тогда еще при считывании посленей строки надо учитывать что будет сичтываться текст,и надо будет отделить надпись "номер" от цифры.
в данном случае используется пробел,можно функцией pos

Код:

var s:string;
...
ReadLn(f,s);
i:=StrToInt (Copy(s,Pos(' ',s)+1,length(s)) );//копируем S с конца пробела и до конца строки

[Ildar-tsr]

Сообщение от Snake22

только тогда еще при считывании посленей строки надо учитывать что будет сичтываться текст,и надо будет отделить надпись "номер" от цифры.
в данном случае используется пробел,можно функцией pos

Код:

var s:string;
...
ReadLn(f,s);
i:=StrToInt (Copy(s,Pos(' ',s)+1,length(s)) );//копируем S с конца пробела и до конца строки

Ну давай тогда окончательно до ума доводить:

Код:

i:=StrToInt (Copy(s,Pos(' ',s)+1,length(s)-pos(' ',s)) );

[Snake22]

последнее совсем не обязательно. delphi сама додумает и просто до конца строки скопирует,никаких ошибок превышения длинны строки не будет. тыщу раз делал именно так.
имхо лишний текст только...

[Ildar-tsr]

Поверь на слово случаи когда люди на этом попадали были (связано с переполнением памяти, правда это было в давние времена). Да в целом Делфи со стринговыми переменными достаточно лояльно работает, и в данном случаи никакой ошибки не будет, но к тому же нет и конкретики. Одно дело когда ошибки, связанные с неконкретным использованием функций, всплывали в каком-нибудь школьном или курсовом проекте, и совсем другое, когда подобного рода неточности случаются на производстве. Так что конкретика важна.
И попробуй нарисовать на бумаге набор символов например, klgjklfgjirjkvdkjdflkgjpioukjdlkgjlkfjgldkj*123, и вернуть все после знака * своим методом и правильным. И учти, что перед знаком * может стоять куда больше символов.

[Delces]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var f:TextFile;
i:Integer;
s:string;
begin
AssignFile(f,'1.txt');
If not FileExists('1.txt') then //если файл не существует создаём его
   begin
   Rewrite(f);//создаём
   Writeln(f,0);//записываем число ноль
   Reset(f);
   end
else
Reset(f);//если файл создан то просто открываем для считывания последнего значения
while not Eof(f) do //переходим в конец файла
Readln(f,s);
i:=StrToInt (Copy(s,Pos(' ',s)+1,length(s)-pos(' ',s)) );
inc(i);//увеличиваем считанное значение
Append(f);//открывает файл для записи
WriteLn(f,'номер '+i);
CloseFile(f);
end;

end.

выводит красным текст: WriteLn(f,'номер '+i);
и пишет ошибку:
[Error] Unit1.pas(45): Incompatible types: 'String' and 'Integer'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
что не так?

[Ildar-tsr]

Точно i же у нас integer. Тогда

Код:

WriteLn(f,'номер '+IntToStr(i));

[Delces]

Всем спасибо за помощь!