Функция Copy - в Helpe есть." писал(а):а как создать строку, содержащюю всё до speed
Интересно, откуда такие сведения - всегда думал, что 255 :-)" писал(а):если максимальный размер строки - 128 символов
В эмуляции ДОС, в которой работает ТР - обломишься, в имени файла ДОС только одна точка. В дельфе наверняка проканает." писал(а):Как создать новый файл, содержащий в своём имени более 1-й точки? (например "myinfo.129.001.txt"). При попытке создать такого типа файл возникает ошибка
Функция Pos - в Helpe есть." писал(а): Как искать позиции в тексте?
Зря ты так думаешь... Потому что ты должен не думать, а знать! Чётко знать что максимальная длинна строки 255! Ты ж уже умный, весь язык вызубрил!!!! Шутка! :-)Cообщение от somewhere
Интересно, откуда такие сведения - всегда думал, что 255 :-)
Размер файла - 7,83 КБ (8*023 байт).Cообщение от somewhere
Так какой размер файла?
А ты не знаешь, нет каких-либо модулей для исправления этой ошибки? Или может можно в TP for Windows, если знаешь как через него, то напиши, пожалуйста как. Ато я в этом языке (TPFW) совсем ничего не понимаю... Спасибо.Cообщение от somewhere
В эмуляции ДОС, в которой работает ТР - обломишься, в имени файла ДОС только одна точка. В дельфе наверняка проканает.
А как это сделать? Расскажи. А ты не знаешь ничего про "многоточие" в имени файла(cм. выше)? Как создать такой файл?Сообщение от Хыиуду
Если размер файла такой маленький, ничего страшного не случится, если его по частям в память запихать, даже в Паскале. А если делать в Дельфи - никто лишних восемь угрызенных килобайт памяти не заметит
Код: Выделить всё
Uses Crt;
var
a : Array[0..10240] of char;
f : File;
Size : Integer;
ParPos : Integer;
ValPos : Integer;
Value : String;
NewValue: String;
Speed : Integer;
ParName : String;
function GetStringPosition(Str:String;StartPos, EndPos:Integer):Integer;
var
tmpstr:String;
lng :Byte;
curpos:Integer;
begin
tmpstr := Str;
lng := Length(Str);
CurPos := StartPos;
repeat
move(a[CurPos], tmpstr[1], lng);
inc(CurPos);
until (tmpstr=Str) or (CurPos=EndPos-Lng);
If tmpstr=Str then GetStringPosition := CurPos-1
else GetStringPosition := -1;
end;
begin
Speed := 10000;
ParName := 'speed=';
Assign(F,'fff.txt');
Reset(F, 1);
ClrScr;
BlockRead(F, a[0], 10240, Size);
ParPos := GetStringPosition(ParName,0, Size);
If ParPos > -1 then
begin
ValPos := GetStringPosition(';',ParPos, Size);
Value[0] := chr(ValPos-ParPos-Length(ParName));
Move(a[ParPos+Length(ParName)], Value[1], length(Value));
Str(Speed, NewValue);
Move(a[ValPos], a[ParPos+Length(ParName)+Length(NewValue)], Size-ValPos);
Move(NewValue[1], A[ParPos+Length(ParName)], Length(NewValue));
Size := Size - Length(Value) + Length(NewValue);
Rewrite(F, 1);
BlockWrite(F, a[0], Size);
Writeln('Parameter found at position ', ParPos);
Writeln('Value = ', Value);
Writeln('New value = ', NewValue);
end else Writeln('Parameter not found');
end.