| Цитата(_Dargin_ @ 7.6.2007, 09:59) | Либо использовать записи - не подойдет, если файл должен кто-то видеть,
или брать кусок файла после 2 строчки-> загонять его в TMemoryStream-> очистить содержимое файла Truncate(как-то так)-> добавлять строку-> обратно вписывать содержимое TMemoryStream
Изврат конечно. 
Поиск чисел в тексте
Идя по каждой букве str:string проверяем
| Код |
var str,str2:string; i:word; answer:integer;
for i:= 1 to length(str) do
if (Ord(str[i])>47)and(Ord(str[i])<50) then str2:=str2+str[i];
answer:=StrToInt(str2);
|
Учитывая что пользователь может в нике указать цифры меняем код вот так:
| Код |
var str,str2:string; i:word; answer:integer;
for i:= 1 to length(str) do
if (Ord(str[i])>47)and(Ord(str[i])<50) then str2:=str2+str[i] else str2:='';
answer:=StrToInt(str2);
|
Считывается последние число, если в конце нет никаких символов.
Кстати в TurboPascal 7 могут быть проблемы с функцией StrToInt, поэтому советую использовать компиляторы типа TMTPascal.
Таким образом получаем число, а потом сортируем. и записываем в файл, если не устраивает первый вариант.
Надеюсь помог  |
Да! Конечно помогли! Спасибо большое! А насчёт TMemoryStream, ну я не настолько хороший "Паскалист", первый раз в жизни слышу о таком  , в любом случае большое спасибо!
P.S. пользователь не сможет ввести цифры в име, т.к. я сделал проверку на нажатые клавиши 
Выглядит приблизительно вот так:
| Код |
USES crt;
var k :char;
name :string;
i :integer;
const keysallowed: set of char = ['q','w','e','r','t','y','u','i','o','p','a','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m'];
begin
name:='';
{здесь можно начать цикл, например while k<>#13 do, тоесть имя будет пополнятся пока не нажмёте enter}
{while k<>#13 do
begin}
if k=#8 then{здесь аналог обычному стиранию, то есть при нажатии backspace из переменной name будет стёрта последняя буква}
begin
i:=length(name);
name[i]:=#0;
end;
k:=readkey;
if (k in keysallowed) then
name:=name+k;
{end;}
writeln(name);
readln;
end.
|
|