Trackbar richtig integrieren

[Hebberhead]

Sehr geehrte Damen und Herren,

ich lerne momentan Delphi und möchte jetzt eine Trackbar integrieren. Ganz dummes Beispiel: Ich will einfach wenn ich in mein Edit.feld z.B Alex eintippe und dann eine Button betätige, dass dann mein Trackbar an Position 20 geht (Max length). Das das ganze kein Sinn macht ist mir klar. Möchte einfach nur das Programm verstehen. So habe ich angefangen:

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text:=('Alex') then trackbar1.Position:= position(20);

end;

end.

Da kommt natürlich mist bei raus :S. Wie müsste es richtig lauten?

[Luckie]

"Mist" ist eine nicht gerade aussagekräftige Fehlermeldung. :roll:

PS := ist eine Zuweisung, kein Vergleich.

[Glados]

Zitat:

if Edit1.Text:=('Alex') then trackbar1.Position:= position(20);

Nicht böse gemeint aber ich glaube du solltest dir noch einmal die Grundlagen der Grundlagen angucken.
Ich meine speziell wegen den unnötigen Klammern, dem ersten := (falsch) und der Zuweisung zur TrackBar (auch falsch).

[stahli]

Ich weiß nicht, was Du genau erreichen willst, aber syntaktisch würde so etwas gehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Edit1.Text = 'Alex') then 
    Trackbar1.Position:= 20;
end;

PS: Hier im Forum kannst Du Quelltext in Delphi-Tags setzen (der Delphi-Helm im Editor), so ist der besser lesbar.

[blawen]

Zitat:

Zitat von Hebberhead (Beitrag 1382362)

Delphi-Quellcode:

 if Edit1.Text:=('Alex') then trackbar1.Position:= position(20);

Hallo

Fehler Nr. 1: Bei ":=" handelt es sich um eine Zuweisung. Allerdings möchtest Du ja vergleichen --> "="
Fehler Nr. 2: Der Object-Eigenschaft "Position" kannst Du einen Ganzzahlenwert zueisen. Du versuchst aber den Wert eines anderen Objects zuweisen, welches so aber vermutlich nicht existiert, bzw. es wird sich um eine Eigenschaft des Formulars handeln.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Edit1.Text = 'Alex') then trackbar1.Position:= 20;
end;