Probleme mit ins Tchart geladenen Daten

AlffromMelmac · Beiträge: 24

Hallo alle zusammen,

ich bräuchte eure Hilfe bzw. einen Tipp in die richtige Richtung.
Ich will Daten mit Hilfe eines opendialogs in ein Chart laden. Dies klappt(e) auch bisher ganz gut.
Wollte des Prog (mein erstes nicht Lehrbuch prog) mit 'echten' Daten testen und habe dadurch einen Fehler gefunden wo ich jetzt nicht weiter komm. Und zwar is dieser Progteil (s. unten) als integer ausgelegt und in der Realität brauch ich's auch für gleitkommazahlen. Leider komm ich aber ned so recht mit dem Austausch von integer mit double oder real zurecht weil ich noch a Anfänger bin. Könnte mir jdm. bitte erklären was ich falsch mach.
Vielen Dank für eure Hilfe

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TMainForm.FormCreate(Sender: TObject);
var
  i: integer;
begin
  LineSeries := FreqChart.Series[0] as TLineSeries;
//  BarSeries := FreqChart.Series[0] as TBarSeries;
  OpenDialog.InitialDir := ExtractFilePath(ParamStr(0));
  FreqLabels := TStringList.Create;

  with FreqLabels do
    for i := 1 to MAX_VALUES do
      if i = 1
        then  Add('16')
      else if  i = 2
        then Add ('20')
        else if i= 3
....

end;

......

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TMainForm.DoFileOpenExecute(Sender: TObject);
var
  s: TStrings;
  i: integer;
begin
  s := TStringList.Create;
  with OpenDialog do
    if Execute then
    begin
      s.LoadFromFile(FileName);

    end
    else
    {for i := 1 to FreqLabels.Count do
      s.Add(IntToStr(RandomRange(400, 4000)));}
  LineSeries.Clear;
//  BarSeries.Clear;
  for i := 1 to Pred(s.Count) do
    LineSeries.AddY(StrToInt(s[i]), FreqLabels[i]);
//    BarSeries.AddY(StrToInt(s[i]), FreqLabels[i]);
  s.Free;
end;

Moderiert von Tino: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Do 16.03.2006 um 10:49

digi_c · Beiträge: 1905 W98, XP D7 PE, Lazarus, WinAVR

Ok. Sind die FreqLabels nun die Daten die du anzeigen wilslt oder irgendwelche Ortientierungsmarken?

Egal, würde es ausreichen die real Daten per trunc(int) abzuschneiden oder fallen dann Rundungsfehler zu stark ins Gewicht?

AlffromMelmac · Beiträge: 24

Hallo digi,

danke für die schnelle Antwort und entschuldige meine späte.

Mhmhm, gute idee, weil die Nachkommastellen eigentlich ned sehr interessieren. Aber er meckert noch dass die untere Grenze des Konstantenausdrucks unterschritten wird und dass er einen Konstantenausdruck erwartet.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure TMainForm.DoFileOpenExecute(Sender: TObject);
var
  s: TStrings;
  i: integer;
<span style="color: red">[b]  z: trunc (i);[/b]</span>
begin
  s := TStringList.Create;
  with OpenDialog do
    if Execute then
    begin
      s.LoadFromFile(FileName);

    end
    else

[b]<span style="color: red">    for z := 1 to FreqLabels.Count do</span>[b][/b]      

s.Add(IntToStr(RandomRange(0, 10000)));
  LineSeries.Clear;
//  BarSeries.Clear;
<span style="color: red"> [b] for z := 1 to Pred(s.Count) do[/b]</span>
    LineSeries.AddY(StrToInt(s[z]), FreqLabels[z]);
//    BarSeries.AddY(StrToInt(s[i]), FreqLabels[i]);
  s.Free;
end;

digi_c · Beiträge: 1905 W98, XP D7 PE, Lazarus, WinAVR

Du hast z als trunc von i deklariert. i ist aber eh schon ein Integer, also ist das doch sinnlos oder?
Deklariere z erstmal als integer und weise es ihm dann in einer extra Zeile mit trunc() zu;

AlffromMelmac · Beiträge: 24

Morgen,

Stimmt, was eh schon integer ist in ein integer umzuwandeln macht kaum Sinn.
Mhmhm, funktioniert leider noch nicht.
Sagt inkompatible Typen bei Zeile z:= trunc (s);
Wenn ich s also die Realwerte mit trunc () verbinde, wären sie doch integer. Habs ganz offensichtlich noch ned ganz kapiert.

markieren

Delphi-Quelltext

1:
2:
3:
4:

var
  s: TStrings;
  i: integer;
  z: integer;

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

begin
  z := trunc (s);
  s := TStringList.Create;
  with OpenDialog do
    if Execute then
    begin
      s.LoadFromFile(FileName);

    end
    else
    for z := 1 to FreqLabels.Count do
      s.Add(IntToStr(RandomRange(0, 10000)));
  LineSeries.Clear;
//  BarSeries.Clear;
  for z := 1 to Pred(s.Count) do
    LineSeries.AddY(StrToInt(s[z]), FreqLabels[z]);
//    BarSeries.AddY(StrToInt(s[i]), FreqLabels[i]);
  s.Free;
end;

digi_c · Beiträge: 1905 W98, XP D7 PE, Lazarus, WinAVR

Fast. Trunc() funktioniert natürlich nur bei float Werten und nicht bei Strings, die einen Floatwert beeinhalten. Den musst du vorher mit strtofloat(); umwandeln.

AlffromMelmac · Beiträge: 24

Hab mir's nochmal recht lang durch den Kopf gehen lassen und hba's zu laufen gebracht...
Nochmals vielen Dank digi,
beste Grüße,

alf

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme