Entwickler-Ecke

Sonstiges (Delphi) - Wörter aus einem String


aggroaliarne - Mo 23.02.09 11:40
Titel: Wörter aus einem String
Hi an alle,
also ich hab Folgendes Problem ich habe einen String in den Wörter geladen wurden und zwar mehrere immer mit einem Komma abgetrennt also zB. ein,eine,eines,
Jez möchte ich aus diesem String die einzelnen Wörter rausladen und diese dann mit einer Eingabe vergleichen.
Wenn ich jez mit:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
function AusString(Wort: Sring):TStringList;
var
k, i: Integer;
begin
k := 0 
for i := 0 to Length(Wort) do
  begin
     if Wort[i] = ',' then
       begin
          result.Add(copy(Wort,k,i-1));
          k := i+1;
       end;
    end;
end;

die Wörter aus dem String rauslese und in ne TStringList schreibe, könnt ich se ja wieder auslesen, aber die funktion passt irg nich.
Was is da falsch?
Wie könnt ich des anders machen?

Moderiert von user profile iconGausi: Quote- durch Delphi-Tags ersetzt


Xentar - Mo 23.02.09 12:05

1. Die TStringList "result" wird nicht erzeugt. Besser wäre es, du erzeugst die in der aufrufenden Prozedur, und übergibst diese als Parameter.
2. Die TStringList hat schon eine Funktion "CommaText", musst das also nicht slber schreiben ;)