Дайте линк или бинарь на file 2 delphi string

[]

 

http://psy.1september.ru/

пожалста

 

[]

 

BlackParrot
фу ты.. а я тебе тут ответ развёрнутый писал, а ты такой чудак на букву "х", оказывается .\

я недавно перечитывал свои васмовские посты за позапрошлый год, там была классная фраза:

.D

 

[]

 

А какого вида строку?

 

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

 

[]

 

BlackParrot
ну и ты хочешь сказать, что последний вариант у тебя не конпилится?

 

BlackParrot
Если необходимо отформатировать текстовый массив, удобно использовать офис. Я тоже часто делаю подобное вручную, тулзы подходящей мне нет. В ворде просто заменить можно текст.

 

[]

 

[]

 

ну если ты не можешь код написать типа

while(not eof(f))begin
read(fi,c);
write(fo,'#',integer(c));
end; // есличо - сорре, в делфе уже не уверен, но логика должна быть понятна.

то просто в HiEW открой бинарь, вырежь код вида AA BB CC DD EE FF 00 11 22 33 44 55 ...
и в блокноте:
[ctrl+h]
[ ]->[#]
[enter]
[ctrl+a]
[ctrl+c]
[alt+tab]
[ctrl+V]

сложно?

 

[]

 

<Ctrl>+<R><,>< ><$><Tab><#><Enter>
А вообще-то на делфи очень быстро такое пишется

Код (Text):

1. program binstr;
2.  
3. uses
4.   SysUtils;
5.  
6. function Convert(var B:Pointer; var C:Longword):Pointer;
7.  
8.   function strcopy(D:PChar; S:PChar):Longword;
9.   var
10.     i:Integer;
11.   begin
12.     Result:=Length(S);
13.     for i:=0 to Result-1 do D[i]:=S[i];
14.   end;
15.  
16. var
17.   T:Pointer;
18.   i, j:Longword;
19.   A:Byte;
20. begin
21.   j:=0;
22.   T:=GetMemory(C*4);
23.   for i:=0 to C do
24.   begin
25.     A:=Byte(Pointer(Longword(B)+i)^);
26.     Char(Pointer(Longword(T)+j)^):='#';
27.     j:=j+strcopy(Pointer(Longword(T)+j+1), PChar(inttostr(A)))+1;
28.   end;
29.   FreeMemory(B);
30.   Result:=T;
31.   C:=j;
32. end;
33.  
34. var
35.   B:Pointer;
36.   F:File;
37.   C:Longword;
38.  
39. begin
40.   if ParamCount<2 then Halt(1);
41.   AssignFile(F, ParamStr(1));
42.   Reset(F, 1);
43.   C:=FileSize(F);
44.   B:=GetMemory(C);
45.   BlockRead(F, B^, C);
46.   CloseFile(F);
47.   B:=Convert(B, C);
48.   AssignFile(F, ParamStr(2));
49.   Rewrite(F, 1);
50.   BlockWrite(F, B^, C);
51.   CloseFile(F);
52.   FreeMemory(B);
53. end.

ADD: так кое-что поправил, что накосячил, хотя я это не гонял. может и не запустится

 

тема лол
в самом деле, такие задачи "преобразовать двоичный файл в форматированный текст" не каждый школьник решит, а уж выучить синтаксис дельфи (заглянуть в справку?) - это вообще нерешаемая проблема

 

типа написал 5к строк и не написать еще 5?

 

[]

 

lmao, да ты уже на форуме себе и людям времени больше убил, чем если бы ты просто сел и написал .D

а знаете как это называется? нет, не знаете?
а я уже говорил - это называется каникулы! .)

 

А что же тут универсального?