Extended Problem

[CT86]

Zitat von Toxman:

Das Problem könnte darin liegen, dass 'col' eine Eigenschaft vom stringgrid ist.
Dadurch, dass du mit with ... do arbeitest, wird col nicht als deine Variable(?) sondern als
Stringgrid1.col gelesen. Nenn mal Col in Col1 oder so um und probiers aus.

Nein tut mir leid hilft auch nicht, dann kommt diese Fehlermeldung:
[Error] Unit1.pas(132): Undeclared identifier: 'Col1' Aber dnake trotzdem
mfg
CT86

[Nikolas]

zeig doch mal die ganze function oder procedure zusammen mit deinen Variablndeklarationen. So wird's schwierig

[CT86]

Hey Toxman, hier ist die Procedure, ich will ddie Ergebniss in einem StringGrid anzeigen und nicht in einem Memo. Und dahin kommt noch dazu, dass die x-Werte zur Laufzeit eingegeben werden sollten/können nicht müssen. Also wäre es doch gut wenn das ganze dann in einer Schleife stehen würde, Oder

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
     var x,y: extended; 
       term: string; 
begin 
   term := edit1.text; 
// Das ist unwichtig!!! 
//   memo1.text := 'x      f(x)'; 
//   memo1.Font.Name := 'Courier New'; 
   x := -5; 
   repeat 
     y := termToReal(term,x); 
     memo1.lines.Add(formatfloat(' 0.0   ;-0.0   ', x) + formatfloat('0.###',y)); 
     x := x + 1/2; 
   until x > 5; 
end;

mfg
CT86

[nailor]

Zitat von CT86:

Hey nailor,
mytar hat das hier geschrieben:

Delphi-Quellcode:

with StrinGrid1 do 
for Col := 1 to ColCount do 
  for Row := 1 to RowCount do 
   Cells[Col, Row] := 'Dein String';

Und da kommt hinter dem ersten "to" diese Meldung!!! Kannst du damit was anfangen? Ich leider nicht!
mfg
CT86

welche meldung?

[CT86]

Hey

[Error] Unit1.pas(140): For loop control variable must be simple local variable Diese Meldung hier!
mfg
Ct86

[nailor]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  i_eins: integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i_zwei: integer;
begin
for i_zwei := 0 to 121 do
  for i_eins := 0 to 123 do
   beep;
end;

end.

so. denk denk. was könnte man machen sollen? ps:

bei mir gibts keinen error, sondern der kompiliert mit:

Zitat:

[Warnung] Unit1.pas(30): FOR-Schleifenvariable muss eine einfache lokale Variable sein

[Nikolas]

Wo hast du denn Row und Col deklariert? Ausserdem glaube ich wirklich, dass hier das Problem beim with .. do liegt.

[CT86]

Danke schön nailor, ich weiß ich stell mich echt blöd an Aber in manchen Sachen hab ich echt kein peil . Aber mit deiner Hilfe wird sich das nun ändern
nailor
mfg
CT86

[CT86]

Hallo nailor,
Also so blöd ich auch sein mag, aber dein Vorschlag sah zwar gut aus funktionierte aber in keiner weise. Es soll ja auch mit dem StringGrid funsen und net nur mit nem beep.
mfg
CT86

[Nikolas]

Wo/Wie sind den die Variablen deklariert?

Delphi-Quellcode:

var col,row: integer;
begin
for Col := 0 to StringGrid1.ColCount do
  for Row := 0 to StringGrid1.RowCount do
    StringGrid1.Cells[Col, Row] := 'Dein String'; // funzt wunderbar
end;