Hallo!

ist es möglich einen String auf Groß- und Kleinbuchstaben zu testen?

Also mein Problem ist folgendes.

Ich habe einen String, der ungefähr so aussieht:

"HalloDuMensch"

Es sind halt einzelne Wörter, die einfach zusammengeklascht worden sind.
Ich möchte aus solchen Zeilen die Wörter filtern, dass ich dann

• Hallo
• Du
• Mensch

habe.

Ist das irgendwie möglich?
Ich hoffe das ich es verständlich umschrieben habe und das mir jemand helfen kann.

mfg
knolli

Du kannst einfach alle Großbuchstaben im Text durch einen Großbuchstaben mit vorgestelltem Zeilenumbruch ersetzen :

markieren

Delphi-Quellcode:

var
  tmp: String;
  i: Integer;
begin
  tmp := Memo1.Text;
  for i := Ord('A') to Ord('Z') do
    tmp := StringReplace(tmp, Chr(i), #13#10 + Chr(i), [rfReplaceAll]);
  Memo2.Text := Trim(tmp);

Hier nochmal der selbe Vorschlag...

markieren

Delphi-Quellcode:

var
  tmp: String;
  z: char;
begin
  tmp := Memo1.Text;
  for z := 'A' to 'Z' do
    tmp := StringReplace(tmp, z, #13#10 + z, [rfReplaceAll]);
  Memo2.Text := Trim(tmp);
end;

Gruss
Thorsten

Herzlichen Danke!

funtionniert einwandfrei!

jetz habe ich aber noch ein Problem.

und zwar überprüfe ich ob die Variable sWort länger als 2 ist und trage diese dann ein.
Wenn ich dann aber dich procedure ausgelöst habe und ins ergebnis schaue kommen trotzdem leere zeilen.

Bild im Anhang

zusammenfalten · markieren

Delphi-Quellcode:

procedure TWortsuche.Textzerlegen(Sender: TObject);
var sWort, sZeile:string;iLauf, iLauf2:integer;
begin
  For iLauf:=0 to Memo_Seitentext.Lines.Count-1 do
    Begin
    sZeile:=Memo_Seitentext.Lines[iLauf]+' ';
      For iLauf2:=1 to LENGTH(sZeile) do
      begin
        sWort:=COPY(sZeile,1,POS(' ',sZeile));
        sZeile:=COPY(sZeile,POS(' ',sZeile)+1, LENGTH(sZeile));
        IF LENGTH(sWort)>2 then
        Listbox_Seitenwoerter.Items.Add(TRIM(sWort));
      end;//for Length(sZeile)
    end; // for Memolines
end;

alles was ich nachher noch mache ist, dass die "sonderzeichen" entfernt werden

zusammenfalten · markieren

Delphi-Quellcode:

procedure TWortsuche.SonderZeichen(Sender: TObject);
var iLauf, i:integer;
begin
  For iLauf:=0 to Listbox_Seitenwoerter.Items.Count-1 do
  begin
    FOR i:=32 to 255 do
    Begin
     CASE i OF
       32..64 : Listbox_Seitenwoerter.Items[iLauf]:=StringReplace(Listbox_Seitenwoerter.Items[iLauf],chr(i),'',[rfReplaceAll]);
       91..96 : Listbox_Seitenwoerter.Items[iLauf]:=StringReplace(Listbox_Seitenwoerter.Items[iLauf],chr(i),'',[rfReplaceAll]);
       123..195 : Listbox_Seitenwoerter.Items[iLauf]:=StringReplace(Listbox_Seitenwoerter.Items[iLauf],chr(i),'',[rfReplaceAll]);
       197..213 : Listbox_Seitenwoerter.Items[iLauf]:=StringReplace(Listbox_Seitenwoerter.Items[iLauf],chr(i),'',[rfReplaceAll]);
       215..219 : Listbox_Seitenwoerter.Items[iLauf]:=StringReplace(Listbox_Seitenwoerter.Items[iLauf],chr(i),'',[rfReplaceAll]);
       221..227 : Listbox_Seitenwoerter.Items[iLauf]:=StringReplace(Listbox_Seitenwoerter.Items[iLauf],chr(i),'',[rfReplaceAll]);
       229..245 : Listbox_Seitenwoerter.Items[iLauf]:=StringReplace(Listbox_Seitenwoerter.Items[iLauf],chr(i),'',[rfReplaceAll]);
       247..251 : Listbox_Seitenwoerter.Items[iLauf]:=StringReplace(Listbox_Seitenwoerter.Items[iLauf],chr(i),'',[rfReplaceAll]);
       253..255 : Listbox_Seitenwoerter.Items[iLauf]:=StringReplace(Listbox_Seitenwoerter.Items[iLauf],chr(i),'',[rfReplaceAll]);
     End;//case
    End;//for i
  end; //For iLauf
end;

woran leigt das?

[edit=Matze]Bild angehängt. Imageshack ist erstens meist sehr langsam und zweitens verschwindet das Bild irgendwann von den Servern. MfG, Matze[/edit]

ich habe mein problem gelöst.

ich muss die überprüfung nach dem entfernen der "sonderzeichen" durchführen.