Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Einer Variablen die Länge eines Textes zuweisen? (https://www.delphipraxis.net/68526-einer-variablen-die-laenge-eines-textes-zuweisen.html)

das_Schaf 1. Mai 2006 08:38


Einer Variablen die Länge eines Textes zuweisen?
 
Ich programmiere noch nicht lange (Delphi 5 professional) und deshalb sind meine Fragen relativ simpel. Ich möchte einer variable die Länge des Textes in einem Memo zuweisen. In der Hilfe von Length stand, dass das Ergebnis ein oder ein Array ist. Da meine Variable ein Integer ist, habe ich es mit StrToInt versucht, jedoch wurde mir dann die Fehlermeldung "Inkompatible Typen" angezeigt. Ist das Ergebnis dann ein Array? und wie kann ich die Textlänge jetzt der Variablen zuweisen? (Ich habe etwas in der Art schon einmal programmiert, das ist jedoch auf einer anderen Festplatte).
das_Schaf :gruebel:

jim_raynor 1. Mai 2006 08:40

Re: Einer Variablen die Länge eines Textes zuweisen?
 
Nicht das Ergebnis ist ein Array, sondern der Parameter den du übergibts. Es kann aber auch ein String sein, von daher ganz einfach:

Delphi-Quellcode:
var
  myvar:Integer;
begin
  myvar:=length(Memo1.lines.text);
end;

forest 1. Mai 2006 09:23

Re: Einer Variablen die Länge eines Textes zuweisen?
 
Delphi-Quellcode:
procedure textlaenge;
var
  laenge:Integer;
begin
  laenge:=length(MMTest.Lines.Text);
  If MMTest.Lines.Count > 1 then laenge := laenge-((MMTest.Lines.Count-1)*2);
end;
Dann zählt er die Absatzzeichen #10#13 nich mit, aber wenn du folgendes drückst: 'R'-Taste,'R'-Taste,'R'-Taste,Enter,'R'-Taste'R'-Taste dann rechnet er: 1,2,3,5,4,5

Das liegt daran, dass MMTest.Lines.Count nich bein Enter drücken erhöht wird, sondern beim ersten Zeichen in der neuen Reihe.


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:55 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz