Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > из Pchar в string


Автор: Vladimir1988 7.2.2010, 11:58
Подскажите пожалуйста как перевести из Pchar в string 
Вот часть кода:

Код

unit TEST1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ToolWin, ComCtrls, ActnMan, ActnCtrls, Grids;

  const
  MaxElements = 10;

type
  TForm1 = class(TForm)
    StringGrid2: TStringGrid;
    LoadButton1: TButton;
    procedure LoadButton1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.LoadButton1Click(Sender: TObject);
 var
  i:integer;
  p2: TStream;
  k: array[1..MaxElements] of integer;
  F: string;
  Length: Integer;
   begin
    p2 := TFileStream.Create('D:\тест\file34.txt', fmopenread);
     try
      Length := p2.Size;
      SetLength(F, Length);
      for I := 1 to MaxElement do
      p2.Read(PChar(F)^, Length);
      k[i] := strtoint(F); // в этой строке мне необходимо прочитать в массив
      finally
      p2.Free;
      end;
   for I := 1 to MaxElement do
    StringGrid2.Cells[1, I] := IntToStr(k[I]);

end;
 end.

Автор: Keeper89 7.2.2010, 14:33
Цитата(Vladimir1988 @  7.2.2010,  11:58 Найти цитируемый пост)
Подскажите пожалуйста как перевести из Pchar в string 

StrPas(F) или string(F).

Только зачем это здесь?

Автор: CodeMonkey 7.2.2010, 14:36
PChar-а не увидел. У вас файл читается в строку F. Строчка p2.Read(PChar(F)^, Length); - это эквивалент p2.Read(Pointer(F)^, Length); или p2.Read(F[1], Length); Никакой PChar строки тут нет. Есть String.

А вот логика вашего цикла странна. Что у вас в этом текстовом файле и что вы хотите оттуда прочитать?

Автор: Vladimir1988 7.2.2010, 14:36
Мне необходимо из потока записать в массив.

Добавлено через 1 минуту и 54 секунды
в текстовом файле находятся положительные и отрицательные числа и их обязательно через поток надо записать в массив

Добавлено через 7 минут и 7 секунд
Что то получилось, только выходит сообщение (см вложение)
Код

unit TEST1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ToolWin, ComCtrls, ActnMan, ActnCtrls, Grids;

  const
  MaxElements = 10;

type
  TForm1 = class(TForm)
    SaveButton1: TButton;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    LoadButton1: TButton;
    procedure SaveButton1Click(Sender: TObject);
    procedure LoadButton1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.LoadButton1Click(Sender: TObject);
 var
  i:integer;
  p2: TStream;
  k: array[1..MaxElements] of integer;
  F: string;
  Length: Integer;
   begin
    p2 := TFileStream.Create('D:\тест\file34.txt', fmopenread);
     try

      Length := p2.Size;
      SetLength(F, Length);
      for I := 1 to MaxElements do
      p2.Read(PChar(F)^, Length);
      k[i] := strtoint(F);
      StringGrid2.Cells[1, I] := IntToStr(k[I]);
      finally
      end;
      p2.Free;

end;
 end.

Автор: kami 7.2.2010, 15:38
Цитата(Vladimir1988 @  7.2.2010,  14:36 Найти цитируемый пост)

Length := p2.Size;
...
for I := 1 to MaxElements do      
  p2.Read(PChar(F)^, Length);



То ли лыжи не едут, то ли весь файл за 1 раз считывается в переменную f. Потом, (на следующих витках цикла) соответственно, читается в нее мусор. Да и что делать со всем файлом сразу в строке - я не представляю, но уж точно StrToчто-нибудь будет выдавать ошибки хотя бы из-за размера строки.  smile 

Автор: CodeMonkey 7.2.2010, 22:34
Цитата(Vladimir1988 @  7.2.2010,  14:36 Найти цитируемый пост)
в текстовом файле находятся положительные и отрицательные числа

[вырезано цензурой]....  а КАК они там записаны, мы должны угадать? Через пробел-ли, каждое число - с новой строки, или табуляцией или ещё как.

Автор: Vladimir1988 7.2.2010, 22:39
Вот код всей программы.
В первой процедуре в файл через поток записываются данные из массива.
Во второй процедуре данные необходимо считать, и тут возникают различного рода ошибки...

Код

unit TEST1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ToolWin, ComCtrls, ActnMan, ActnCtrls, Grids;

  const
  MaxElements = 10;

type
  TForm1 = class(TForm)
    SaveButton1: TButton;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    LoadButton1: TButton;
    procedure SaveButton1Click(Sender: TObject);
    procedure LoadButton1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SaveButton1Click(Sender: TObject);
var
  i: integer;
  n: array[1..MaxElements] of integer;
  p1: TStream;
  S: string;
   begin
    for i := 1 to MaxElements do
     n[i]:= (i)*(-2);
      for i := 1 to MaxElements do
       StringGrid1.Cells[1, i]:= intTostr(n[i]);
        begin
         p1 := TFileStream.Create('D:\тест\file34.txt', fmCreate);
          try
           for i := 1 to MaxElements do
           begin
            S := IntToStr(n[i]) + #13#10;
            p1.Write(PChar(S)^, Length(S));
           end;
          finally
        end;
       p1.Free;
     end;
   end;

procedure TForm1.LoadButton1Click(Sender: TObject);
 var
  i:integer;
  k: array[1..MaxElements] of integer;
  p2:TStream;
  f:array[1..10] of string;
   begin
    p2:= TFileStream.Create('D:\тест\file34.txt', fmopenread);
     try
     for i := 1 to MaxElements do begin
      p2.Read(PChar(f[i])^, Length(f));
     // p2.Read(k[1], MaxElements*(SizeOf(integer)));
      // for i := 1 to MaxElements do begin
       k[i]:=strtoint(f[i]);
        StringGrid2.Cells[1, i] := IntToStr(k[i]);
        end;
     finally
   end;
 p2.Free;
  end;
end.

Автор: CodeMonkey 7.2.2010, 22:40
Совет: отформатируйте код и вы увидите проблему:
Код
procedure TForm1.LoadButton1Click(Sender: TObject);
var
  i: integer;
  p2: TStream;
  k: array[1..MaxElements] of integer;
  F: string;
  Length: Integer;
begin
  p2 := TFileStream.Create('D:\тест\file34.txt', fmopenread);
  try
    Length := p2.Size;
    SetLength(F, Length);
    for I := 1 to MaxElement do
      p2.Read(PChar(F)^, Length);
    k[i] := strtoint(F); 
  finally
    p2.Free;
  end;
  for I := 1 to MaxElement do
    StringGrid2.Cells[1, I] := IntToStr(k[I]);
end;


Добавлено через 3 минуты
Ага, значит у вас записано по числу на строчку.

Тогда уточнение: вам принципиально использование TFileStream? Загрузка через TStringList была бы проще.

Автор: Vladimir1988 8.2.2010, 11:02
Принципиально использование потока.

Автор: CodeMonkey 8.2.2010, 11:32
Тогда нормальный вариант будет:
1. Считать весь файл за раз в строку.
2. Сделать while-цикл по строке. Условие цикла - пока в строке есть #13#10 (разделитель строк).
3. Каждая итерация цикла отрезает от прочитанной строки подстроку до очередного #13#10 и заносит в массив.

Пункт 1 у вас уже выполнен. Только почему он сидит в цикле - загадка.
Пункт 2 реализуется циклом while, вам также понадобится функция Pos, чтобы узнать позицию #13#10 в F.
Пункт 3 реализуется функциями Copy и (опционально) Delete для "откусывания" подстроки.

Готовый код я принципиально не хочу вам давать.

http://transl-gunsmoker.blogspot.com/2009/08/blog-post_04.html.

Кусочки я вам назвал и даже сказал, как их надо соединить. Ваша задача - тупо набить код.
 

Автор: Vladimir1988 8.2.2010, 11:37
Спасибо. 

Автор: Vladimir1988 8.2.2010, 22:07
Добрый вечер. Написал код, но в массив пишутся какие то странные числа, явно не из файла.

Вот код:

Код

procedure TForm1.LoadButton1Click(Sender: TObject);
 var
 LS, LE, i:integer;
  k: array[1..MaxElements] of integer;
  p2:TStream;
  f:array[1..10] of string;
  W: string;
    begin
    p2:= TFileStream.Create('D:\тест\file34.txt', fmopenread);
     try
     p2.Read(PChar(W)^, p2.size);
     LS := 1;
     LE := Pos(#13#10, W);
      I:=0;
      while(LE> 0) do begin
      i:=i+1;
       f[i] := Copy(W, LS, LE - LS);
       delete (W,LS, LE - LS);
       LS := LE + 2;
      end;
        for i := 1 to MaxElements do
        k[i]:=StrToInt(f[i]);
        for i := 1 to MaxElements do
        StringGrid2.Cells[1, I] := IntToStr(k[i]);
      finally
     p2.Free;
     end;
  end;
end.

Автор: Rennigth 8.2.2010, 22:49
Цитата(Vladimir1988 @  8.2.2010,  22:07 Найти цитируемый пост)
Добрый вечер. Написал код, но в массив пишутся какие то странные числа, явно не из файла.

Вот код:


Особо ни в код ни в топик не вдавался(время поджимает), но как я понимаю сейчас у Вас первая проблемма в том что Вы не устанавливаете курсор на начало файла. На сколько помню у TFileStream есть метод Seek для этого.

Автор: CodeMonkey 8.2.2010, 23:22
Цитата(Vladimir1988 @  8.2.2010,  22:07 Найти цитируемый пост)
но в массив пишутся какие то странные числа, явно не из файла

А точно не врёте? У вас код нерабочий. Куда (и зачем) вы убрали SetLength?

Проблема №2: массив F имеет размер только 10 элементов. А если MaxElements больше 10? Впрочем, на этот вопрос можно не отвечать, т.к. на самом деле там не нужен массив. Вы вынесли чтение из файла и заполнение массива в два разных цикла. Вопрос: зачем? Объедините их в один. Откусили строку - тут же её в k загнали. Тогда и массив не понадобится, т.к. на очередной итерации мы можем откусывать в ту же переменную (на самом деле, даже переменной не надо: k[i] := StrToInt(Copy(...)); + Inc(i) и Delete).

Цитата(Rennigth @  8.2.2010,  22:49 Найти цитируемый пост)
 как я понимаю сейчас у Вас первая проблемма в том что Вы не устанавливаете курсор на начало файла

Сразу после TFileStream.Create указатель и так стоит на начале файла, никакой Seek не нужен.

Добавлено через 1 минуту и 46 секунд
Ах, да, проблема №3: условие выхода из цикла никогда сработает, т.к. LE у вас в цикле не меняется.

Автор: Rennigth 8.2.2010, 23:25
Цитата(CodeMonkey @  8.2.2010,  23:22 Найти цитируемый пост)
Сразу после TFileStream.Create указатель и так стоит на начале файла, никакой Seek не нужен.

Проверить сейчас не могу  smile, но Вам верю на слово  smile 

Автор: CodeMonkey 8.2.2010, 23:30
P.S. Для дальнейшего чтения:
- http://transl-gunsmoker.blogspot.com/2009/09/blog-post.html
- http://transl-gunsmoker.blogspot.com/2009/09/pchars.html

Автор: Vladimir1988 9.2.2010, 10:55
СПС

Автор: Vladimir1988 9.2.2010, 11:14
smile

Добавлено через 4 минуты и 5 секунд
Подскажите плиз почему код виснет  smile 

Код

unit TEST1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ToolWin, ComCtrls, ActnMan, ActnCtrls, Grids;

  const
  MaxElements = 10;

type
  TForm1 = class(TForm)
    StringGrid2: TStringGrid;
    LoadButton1: TButton;
    procedure LoadButton1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.LoadButton1Click(Sender: TObject);
 var
  Length, LS, LE, i:integer;
  k: array[1..MaxElements] of integer;
  p2:TStream;
  W: string;
    begin
     p2:= TFileStream.Create('D:\тест\file34.txt', fmopenread);
      try
       Length := p2.Size;
       SetLength(W, Length);
       p2.Read(PChar(W)^, p2.size);
       LS := 1;
       LE := Pos(#13#10, W);
       i:=0;
        while LE> 0 do
         inc(i);
         k[i+low(k)-1] := StrToInt(Copy(W, LS, LE - LS));
         delete (W,LE,1);
         LS := LE + 2;
         LE := LE-LS;
        finally
       p2.Free;
      end;
     for i := 1 to MaxElements do
    StringGrid2.Cells[1, I] := IntToStr(k[i]);
   end;
end.



Добавлено через 6 минут и 10 секунд

Подскажите плиз, че то виснет при запуске

Код

unit TEST1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ToolWin, ComCtrls, ActnMan, ActnCtrls, Grids;

  const
  MaxElements = 10;

type
  TForm1 = class(TForm)
    StringGrid2: TStringGrid;
    LoadButton1: TButton;
    procedure LoadButton1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.LoadButton1Click(Sender: TObject);
 var
  Length, LS, LE, i:integer;
  k: array[1..MaxElements] of integer;
  p2:TStream;
  W: string;
    begin
     p2:= TFileStream.Create('D:\тест\file34.txt', fmopenread);
      try
       Length := p2.Size;
       SetLength(W, Length);
       p2.Read(PChar(W)^, p2.size);
       LS := 1;
       LE := Pos(#13#10, W);
       i:=0;
        while LE> 0 do
         inc(i);
         k[i+low(k)-1] := StrToInt(Copy(W, LS, LE - LS));
         delete (W,LE,1);
         LS := LE + 2;
         LE := LE-LS;
        finally
       p2.Free;
      end;
     for i := 1 to MaxElements do
    StringGrid2.Cells[1, I] := IntToStr(k[i]);
   end;
end.

Автор: CodeMonkey 9.2.2010, 13:22
Не знаю, как при запуске, но при нажатию на кнопку - возможно. Есть подозрение, что цикл у вас бесконечный.

LE := LE-LS; - это что вообще такое? У вас поиск #13#10 выполняется один раз - до цикла. И ни разу в самом цикле. А должен! Ведь условие выхода из цикла - "пока в W не останется #13#10".

Проблема №2 - в delete (W,LE,1); вы перепутали порядок аргументов.

Остальное, на беглый взгляд, в порядке.

Автор: Vladimir1988 9.2.2010, 13:26
CodeMonkey, спасибо большое.
Вопрос решен.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)