файл из text в hex

[Serge_Bliznykov]

как в TFileStream урезать начало и концы строк и так каждую строку

простите, я вас не понимаю...
больше конретных деталей или давайте на примерах, один файлик, как есть, второй файлик - как должно быть...

[AET]

вот файл TStringList что то не найду функцию

[eval]

Автор продолжает упорствовать.

[Stilet]

что то не найду функцию

Какую функцию? Что ты там ищещь, не понял.

[AET]

PHP код:

 for i := 0 to TS.Count - 1 do begin
      s := Trim(TS.Strings[i]); 


считываем страку а как удалить начало и конец строки

[Stilet]

Я извиняюсь, а что ты делаешь?
У тебя есть бинарный файл, тебе нужно его в 16-ти ричное представление перекодить.
Т.е. так:

var b:byte; s:string;
begin
 s:='';
 with TFileStream.Create('hex.bin',fmOpenRead) do begin
  while Position<Size do begin
   Read(b)
   s:=s+IntToHex(b,2)+' ';
  end;
  Free;
 end;
И тут что-то с S делаешь - теперь оно содержит дамп в 16-тиричном виде.
end;

[AET]

procedure TForm2.Button1Click(Sender: TObject);
var s, s2 : string;
    TF : TFileStream;
    TS : TStringList;
    i, k : integer;
    OneB : byte;
begin

  if Not FileExists(Edit1.Text) then
    ShowMessage('Файл не существует!')
  else begin
    TS := TStringList.Create;
    TS.LoadFromFile(Edit1.Text);
    TF := TFileStream.Create(Edit2.Text, fmCreate);

    for i := 0 to TS.Count - 1 do begin
      s := Trim(TS.Strings[i]);
      s := StringReplace( s, ' ', '', [rfReplaceAll]);
      k:=1;
      while (k<= Length(s)) do begin
         s2 := copy(s, k, 2); inc(k,2);
         OneB := StrToInt('$'+s2);
         TF.Write(OneB, 1);
      end;
    end;

    FreeAndNil(TS);
    FreeAndNil(TF);
    ShowMessage('Convertation is done!');
  end;
end;

вот мне тут помогли
считываем по строкам

 s := Trim(TS.Strings[i]);

как удалить начало строки и конец строки то есть с начало строки 5 символов и с конца 5 символов

[Аватар]

s:=Copy(s,6,Length(s)-10)
да, если уверен, что длина строки >=10

[AET]

все понял блогодарен

s:=Copy(s,12,Length(s)-30);

сделал так работает но есть одна проблема так как в НЕХ = 20 это пробел и данная программа его удаляет

00000410   20 53 79 73 74 65 6d 20  20 20 20 20 20 20 20 49     System        I

а должно оставатся это

20 53 79 73 74 65 6d 20  20 20 20 20 20 20 20 49

с этого адреса идет смешение

00000410   20 53

[Аватар]

s:=Copy(s,12,Length(s)-30);

заменить на

s:=Copy(s,12,48);