Entwickler-Ecke
Sonstiges (Delphi) - String in Wörter zerteilen
WeBsPaCe - So 09.01.05 19:06
Titel: String in Wörter zerteilen
Hi!!!
Folgendes Problem: Ich hab' nen String wie z.B. den da:
| Ganz toller String: |
| Ich finde das delphi-forum super!! |
Jetzt will ich, dass dieser String in die einzelnen wörter eingeteilt wird. Also in unserem Beispiel:
wort[1] = Ich
wort[2] = finde
wort[3] = das
wort[4] = delphi-forum
wort[5] = super!!
Danke schon mal, gelle?? :D
Handycommander - So 09.01.05 19:10
Hallo,
ich hoffe mal, das hier kann dir helfen! :roll:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| procedure GetWords(TheString, Separator: String; var Strings: TStringList);
begin
try
Strings.Clear;
while Pos(Separator, TheString)>0 do
begin
Strings.Add(Copy(TheString, 1, Pos(Separator, TheString)-1));
TheString:=Copy(TheString, Pos(Separator, TheString)+Length(Separator),
Length(TheString));
end;
Strings.Add(TheString);
except
end;
end; |
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| function WordCount(TheString, Separator: String): Integer;
var OurStrings: TStringList;
begin
OurStrings:=TStringList.Create;
GetWords(TheString, Separator, OurStrings);
result:=OurStrings.count;
OurStrings.free;
end; |
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| function GetWord(TheString, Separator: String; Nummer: Integer): String;
var OurStrings: TStringList;
begin
OurStrings:=TStringList.Create;
GetWords(TheString, Separator, OurStrings);
try
result:=OurStrings[Nummer-1];
except
result:=''
end;
OurStrings.free;
end; |
MfG
Tobias
Moderiert von 
Christian S.: Code- durch Delphi-Tags ersetzt.
Sprint - So 09.01.05 19:22
Titel: Re: String in Wörter zerteilen
| WeBsPaCe hat folgendes geschrieben: |
| Jetzt will ich, dass dieser String in die einzelnen wörter eingeteilt wird. |
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
| function Explode(const AText: String; ADelimiter: Char): TStringDynArray;
var
I: Integer;
begin
with TStringList.Create do
try
Delimiter := ADelimiter;
DelimitedText := AText;
if Count > 0 then
begin
SetLength(Result, Count);
for I := 0 to Count - 1 do
Result[I] := Strings[I];
end;
finally
Free;
end;
end; |
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| procedure TForm1.Button1Click(Sender: TObject);
var
StrArry: TStringDynArray;
I: Integer;
begin
StrArry := Explode('Ich finde das delphi-forum super!!', #32);
if Length(StrArry) > 0 then
for I := 0 to High(StrArry) do
ShowMessage(StrArry[I]);
end; |
tommie-lie - So 09.01.05 19:25
Will noch einer? :mrgreen:
WeBsPaCe - Mo 10.01.05 16:02
Hey Jungs, ihr seid super!!! Vielen Dank!!! Alle drei funzen!!! Ich such mir dann mal eins raus... :D :lol:
zangelo - Mo 10.01.05 21:44
Hi, bin ein delphi anfänger, und mich interessiert nun, wo das jetzt hin muss, also der code, einfach doppelklick auf die form, und dann die 3 codes einfügen?
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!
"EXPLODE"