Anzahl Zeichen in Edit = Prozent in Progressbar

[sandraeberlein]

Wie finde ich die raus? Also edit.sellengt ist es ja nicht? Weil, ich will das wenn ich z.B. in einem Edit 3 zeichzen schreibe, eine Progressbar auf 10% geht, bei 10 Zeichen auf 20% usw.

Wie kann ich das realisieren??? Ich habe gerade ein Ziemliches Black out!

Danke und Bussi :love:
Eure Sandra

[MathiasSimmack]

Length liefert die Anzahl der Zeichen. Der Rest ist Mathe. :)

[sandraeberlein]

Delphi-Quellcode:

progressbar1.position := edit1.Length;

Geht z.B Nicht :(

[Waldteufel]

Hi.

Aber so gehts:

Delphi-Quellcode:

progressbar1.position := Length(edit1.text);

[RavenIV]

Zitat:

Zitat von sandraeberlein

Delphi-Quellcode:

progressbar1.position := edit1.Length;

Geht z.B Nicht :(

dies sollte gehen:

Delphi-Quellcode:

progressbar1.position := edit1.text.Length

[Waldteufel]

Hi.

Zitat:

Zitat von RavenIV

Zitat:

Zitat von sandraeberlein

Delphi-Quellcode:

progressbar1.position := edit1.Length;

Geht z.B Nicht :(

dies sollte gehen:

Delphi-Quellcode:

progressbar1.position := edit1.text.Length

Nein! edit1.text ist vom Typ String und hat als solcher keine Methoden!

[alcaeus]

Zitat:

Zitat von RavenIV

dies sollte gehen:

Delphi-Quellcode:

progressbar1.position := edit1.text.Length

Das geht vielleicht in JavaScript oder vielleicht auch in .NET, aber nicht in Delphi für Win32.

@Sandra: Mathias hat aus einem einfachen grund die Hilfe-Tags um Length "gewickelt". Guck in die Delphi-Hilfe und du wirst auch ein Beispiel zur Verwendung finden.

Greetz
alcaeus

[RavenIV]

es geht auch noch so:

Delphi-Quellcode:

progressbar1.position := Edit1.GetTextLen;

such Dir das aus, was dir besser gefällt...

[Sharky]

Zitat:

Zitat von sandraeberlein

.... 3 zeichzen schreibe, eine Progressbar auf 10% geht, bei 10 Zeichen auf 20% usw.

Ähmm... mal unabhängig davon wie Du die Anzahl der Zeichen in dem TEdit ermittelst.
Auf was soll sich das % den beziehen?
Wenn 3 Zeichen = 10% sind ist ein Zeichen also 10/3% dann können aber 10 Zeichen nicht 20% sein.

[MathiasSimmack]

Jetzt, wo du´s ansprichst, Sharky, :gruebel: ... mal unabhängig von der Idee, dass 3 Zeichen 10% sein sollen, usw. Wenn nur 3 Zeichen im Edit stehen, dann sind das 100%. :mrgreen: Andernfalls benötigt man einen festen Längenwert, den der eingetippte Text nicht überschreiten darf. Aber wie gesagt, das wäre dann simple Mathematik.

@Waldteufel: Raven hat wahrscheinlich zu sehr an .NET gedacht. ;)

[Chegga]

Hi,

Zitat:

Zitat von sandraeberlein

Wie finde ich die raus? Also edit.sellengt ist es ja nicht? Weil, ich will das wenn ich z.B. in einem Edit 3 zeichzen schreibe, eine Progressbar auf 10% geht

Wenn 3 Zeichen 10% sind, dann sind 30 Zeichen 100%.
Also:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var S: Integer;
begin
  S := Length(Edit1.Text);
  Progressbar1.Max := 30;
  Progressbar1.Min := 0;
  ProgressBar1.Position := S;
end;

MfG Marc

P.S.: Im Beispiel-Code habe ich mit einem Button, Progressbar und einem Edit gearbeitet. :oops:

[Sharky]

Hai,

das Ganze macht ja eigentlich nur einen Sinn wenn die Eigenschaft .MaxLength des Edits > 0 ist. Denn dies ist der einzige sinnvolle Weg die Anzahl der Zeichen im Edit zu beschränken.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.MaxLength := 30;  // Maximal 30 Zeichen im Edit
  ProgressBar1.Min := 0;
  ProgressBar1.Max := Edit1.MaxLength;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  ProgressBar1.Position := Length ((Sender As TEdit).Text);
end;