VPF::как построить график TChart из массива

folta

Дата 6.12.2012, 13:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 19.6.2012

Репутация: нет
Всего: нет

что собственно нужно для RzButton1, чтобы массив из файла перевести в график TChart?
хоть примером.

Код


procedure TForm2.RzButton1Click(Sender: TObject);
var
i: integer;
?
?
?
end;
    end;
procedure TForm2.RzButton2Click(Sender: TObject);
var
  hF : THandle;
  S : AnsiString;
  Len, CntRead : Longword;
begin
   if OpenDialog1.Execute then
   begin

  hF := CreateFile(PChar(OpenDialog1.FileName), GENERIC_READ, FILE_SHARE_READ,
    nil, OPEN_EXISTING, 0, 0);
  if hF = INVALID_HANDLE_VALUE then Exit;
  Len := GetFileSize(hF, @Len);
  SetLength(S, Len);
  try
    ReadFile(hF, Pointer(S)^, Len, CntRead, nil);
  finally
    CloseHandle(hF);
  end;

   end;
end;
end.

ну понятно что вместо вопросов должно быть что-то:

Код


 procedure TForm2.RzButton1Click(Sender: TObject);
var
i: integer;
key: array of integer;
begin
  begin
Series1.Clear;

  for i:=   1 to 20 do

  Series1.AddXY(key, i*i, '', clBlue);
end;
    end;

правильно? массив положен в график

опс..ещо грабли
при попытке считать из файла в массив, критическая - invalid numeric input
как унифицировать, чтобы не спотыкалась? нужны только цифры

Код


procedure TForm2.RzButton2Click(Sender: TObject);
var
   f : TextFile;
   value, i : Integer;
begin
   if OpenDialog1.Execute then
   begin
      AssignFile(f, OpenDialog1.FileName);
      Reset(f);
 
      i := 0;
      while not SeekEof(f) do
      begin
         Read(f, value);
         Inc(i);
         key[i] := value;
      end;
      CloseFile(f);
 
   end;
end;
end.

Это сообщение отредактировал(а) folta - 6.12.2012, 22:04

folta

Дата 7.12.2012, 13:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 19.6.2012

Репутация: нет
Всего: нет

вопрос смежный, поэтому сюда:

не могу обозначить в type

Код


TArrayOfStrings = [color=crimson]array[/color]of AnsiString;

для

Код


function StringToArray(Text, Cut: AnsiString): TArrayOfStrings;  
var
  t, k, count, MaxLength: Integer;
begin
 ...

выдает E2029 ',' or ':' expected but '=' found

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »