аналогична или нет... Чего не знаю того не знаю. :-)
Как Используется? Ну посмотри там pchar-ы помоему....
Ща сам попробую.

Ага, вот так работает.

procedure TForm1.Button2Click(Sender: TObject);
var
Ch:PChar;
begin
Ch:=pchar(Memo1.Text);
OemToAnsi(PChar(Memo1.Text),Ch);
memo2.Text:=Ch;
end;

end.

Это сообщение отредактировал(а) Bes - 20.12.2004, 14:09

я написал такую программку для печати DOS-текста
особую благодарность выражаю господину "posol", который любезно согласился и помог мне

в папке "txt" есть примеры файлов, с которыми работает эта программа
может быть прийдется поставить JEDDI(JCL122+JVCL200FinalFull),
Вам, наверное будет интересна эта процедура

Код

procedure TfmMain.opensouz(filename:string); var f : TextFile; s, s2 : string; MinLen, i, p, n : integer; Widths : array of integer; begin  StringGrid1.RowCount:=1;  StringGrid1.FixedCols := 0;  AssignFile (f, filename);  _sl.Add(filename);//добавляем файл в список удаления перед закрытием // пропускаем ненужное до тех пор, пока не встретим шапку таблицы  Reset (f);  repeat ReadLn (f, s); until Pos(#$CD, s) <> 0;  while (s[1] < #32) do Delete(s, 1, 1);//!!!  MinLen := Length(s);//!!! // читаем и формируем шапку таблицы  SetLength (Widths, 0);  repeat   ReadLn (f, s);   if Pos(#$B3, s) = 0 then Break;   i := 0;   while (s[1] < #32) do Delete(s, 1, 1);   for i := 1 to Length(s) do if s[i] < #32 then s[i] := ' '; // !!!   while Length(s) < MinLen do s := s + ' '; // !!!   i:=0;   OEMToChar(PChar(s), PChar(s));   repeat    p := 1;    while (s[p] <> '¦') and (p <= Length(s)) do Inc(p);    if p > 1 then    begin     if Length(Widths) < i+1 then     begin      SetLength(Widths, i+1);      Widths[i] := p;      StringGrid1.ColCount := i+1;      StringGrid1.Cells[i, 0] := Copy(s, 1, p-1);     end     else begin       //StringGrid1.Cells[i, 0] := StringGrid1.Cells[i, 0] + ' ' + Copy(s, 1, p-1);     end;     Inc(i);    end;    Delete (s, 1, p);   until s = '';  until false; //  Widths[i] := p+20;//заявитель в заголовке 10 символов, а длина поля 20 символов  StringGrid1.ColCount := StringGrid1.ColCount + 1;  StringGrid1.Cells[StringGrid1.ColCount-1, 0] := 'Примечание'; //  Widths[0]:=25; //  Widths[High(Width)-1]:=128; // читаем данные //n := 1; n:=StringGrid1.RowCount; while not EOF(f) do begin StringGrid1.RowCount := n+1;//+1; ReadLn (f, s); ReadLn (f, s2); if (s = '') or (s2 = '') then break; OEMToChar(PChar(s), PChar(s)); OEMToChar(PChar(s2), PChar(s2)); p := 1; for i := 0 to Length(Widths)-1 do begin  StringGrid1.Cells[i, n] := Copy(s, p, Widths[i]);  if i = Length(Widths)-1 then  begin   StringGrid1.Cells[i, n] := StringGrid1.Cells[i, n] + ' ' + Copy(s2, p, Widths[i]);   StringGrid1.Cells[i+1, n] := Copy(s2, 1, p-1);  end;  Inc (p, Widths[i]); end; Inc(n); end; // выставляем ширину столбцов for i := 0 to Length(Widths)-1 do  StringGrid1.ColWidths[i] := Widths[i]*12; StringGrid1.ColWidths[0] := 20; StringGrid1.ColWidths[StringGrid1.ColCount-1] := 128; CloseFile(f); end;

Присоединённый файл ( Кол-во скачиваний: 4 )
 porekod.zip

можно поодробнее о процедуре procedure TfmMain.opensouz(filename:string);

А что в две строчки писать уже не интересно? :-)

Почему то мне было отказано в скачивании файла zip.

в этой процедуре открывается текстовый файл, можно сказать без разметки

всякий мусор
в несколько строк
-----------------------------------------------------------------------------------------
столбец1|столбец2 |столбец3 |
------------------------------------------------------------------------------------------
данне 1 данные данные
данне 2 данные данные
данне 3 данные данные
данне данные данные
данне данные данные

как видно в данных могут быть и пробелы

ширину столбцов для StringGrid узнанём из шапки
массив Width - это массив, содержащий ширины столбцов
затем вставляем в сетку данные
StringGrid1.Cells[i, n] := Copy(s, p, Widths[i]);-обратите внимание на
индекс "i"
в конце выставляем ширину столбцов

более подробно опишу, может быть, позже, а то клавиатура без русских символов, т.к. менеджер - девушка, соответственно ногти...

Цитата(dsergey @ 20.12.2004, 14:55)

я написал такую программку для печати DOS-текста особую благодарность выражаю господину "posol", который любезно согласился и помог мне в папке "txt" есть примеры файлов, с которыми работает эта программа может быть прийдется поставить JEDDI(JCL122+JVCL200FinalFull), Вам, наверное будет интересна эта процедура

Я тут увидел программу для перекодировки текста из Дос в Виндовс. Помогите мне в моей истории. У вас возникла проблемма перекодировки в Текстовом файле а у меня в Базе данных dbf. Мне очень нужно прочитать эту базу в програмке на Делфи!! Помогите! И кстати не могли ли бы вы откомпилировать вашу програму и выслать мне ато когда я скачал ваш файл с кодом себе то при его открытии мне Делфи начал говорить что у меня не хватает компонентов или еще чего-то потом при запуске начал говорить что нехватает файлов. Мой майл [email protected] С ув. Александр