Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.12.19;
Скачать: [xml.tar.bz2];

Вниз

Как скопировать 60 байт?   Найти похожие ветки 

 
tytus   (2004-12-01 14:53) [0]

Добрый день господа. Имеется текстовый файл отображенный в память (MapViewOfFile). В нем я нахожу вхождение строки "АА31" к примеру:FaundStr:=StrPOs(MapViewOfFile,PChar("AA31")); Но FaundStr есть ни что инное как указатель  на начало вхождения искомой строке отображенного файла. И если вывести в Memo FaundStr, то будет весь текстовый файл до конца, начиная с искомой строки. А мне нужно только первые 60 байт.


 
Суслик ©   (2004-12-01 15:49) [1]

s: string;

setlength(s, 60);
move(p^, pointer(s)^, 60)


 
GuAV ©   (2004-12-01 19:21) [2]

SetString(S, Pб 60);


 
GuAV ©   (2004-12-01 19:21) [3]

SetString(S, P, 60);



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.12.19;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.035 c
1-1101760067
Dmitry
2004-11-29 23:27
2004.12.19
Как при нажатии на кнопку закрытия свернуть программу вместо выхо


1-1102320062
Sveta_cc
2004-12-06 11:01
2004.12.19
Декомпилятор


4-1099327420
Dionis
2004-11-01 19:43
2004.12.19
Визуальный компонент для работы с COM-портом


4-1099669839
XProger
2004-11-05 18:50
2004.12.19
ClientRect


14-1101823807
Jeer
2004-11-30 17:10
2004.12.19
Поэтическая Windows:)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский