Satz auseinander nehmen!

kulka1 · Beiträge: 81

Hallo,

ich habe eine frage und zwar:

wie kann ich einen Satz auseinander nehmen?

also das man in einem editfeld ein satz eingibt, und beim klick auf den button sollen die einzelnen wörter untereinander in einem memofeld erscheinen!

wäre nett wenn mir jmd helfen kann, evtl mit code

mfg kulka

elundril · Verfasst: Mo 05.10.09 16:03

nun ja, eigentlich brauchst du ja nur mittels PosEx nach leerzeichen suchen und dann mit copy vom index des letzten leerzeichens bis zum index des aktuellen leerzeichens kopieren, oder?

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

Xentar · Verfasst: Mo 05.10.09 16:09

Wenn man eh in einem Memo ausgeben möchtes, könnte man auch DelimitedText nehmen.

_________________
PROGRAMMER: A device for converting coffee into software.

kulka1 · Beiträge: 81

ok, danke, ich werd es mal probieren und werde mich dann wieder zu euch wenden

---Moderiert von Narses: Beiträge zusammengefasst---

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var eingabe, ausgabe: String;
  i : integer;
begin
  Memo1.Clear;
  eingabe := edit1.text;
  i := pos(' ',eingabe);

  Memo1.Lines.Add(eingabe);

  while (i <> 0) do
  begin
    ausgabe := copy(eingabe,1,i);

  end;
   Memo1.Lines.Add(ausgabe);
end;

das geht aber iwie nicht -.-*, ist bestimmt ne menge mist drin, könnt ihr es verbessern =)^^

Xentar · Verfasst: Mo 05.10.09 21:00

Ähm.. ne, das wird so nichts.. z.B. suchst nur EIN Mal, nämlich vor der Schleife, nach dem Leerzeichen.
Schreib am besten an jede Zeile einen Kommentar dran, was da deiner Meinung nach geschieht

Und danach könntest du dir mal überlegen, wie du es selber machen würdest, also wenn du diese Aufgabe z.B. auf einem Blatt Papier lösen müsstest.

_________________
PROGRAMMER: A device for converting coffee into software.

Tryer · Beiträge: 226 Erhaltene Danke: 7

Wenn DelimitedText Dir nicht zusagt dann tausch doch einfach "selber" die Leerzeichen gegen Zeilenumbrüche aus.

markieren

Delphi-Quelltext

1:	Memo1.Text := StringReplace(Edit1.Text, #32, #13#10, [rfReplaceAll]);

kulka1 · Beiträge: 81

mhm naja, ich hab es jetzt,

mit pos nach leerzeichen gesucht, und mit copy den satz abgeschnitten

das ganze hab ich in einer while schleife gemacht

danke!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme