Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Markus K.,
26. Mär 2004
So jetzt nochmal ne kleine Funktion von mir, sie müsste eigentlich funzen.
var Text:PChar;
ZeichenAnzahl:Integer;
begin
ZeichenAnzahl:=0;
Text:=Memo1.Lines.GetText;
while (Text^ <> #0) do
if not (Text^ in )
then begin
inc(Text);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Markus K.,
26. Mär 2004
Ich hatte gefragt welche Zeichen du auslesen möchtest, nicht warum :wink:
und zwar wegen
Tschüß Markus
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Markus K.,
26. Mär 2004
Was für Zeichen möchtest du denn auslesen?
Tschüß Markus
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Markus K.,
26. Mär 2004
Hallo Taladan,
oder so kann man es auch machen:
AnzahlZeichen:=Memo1.GetTextLen;
Tschüß Markus