hallo
ich glaub ich seh grad den wald vor lauter bäumen nicht:
habe mir eine
unit geschrieben die sieht folgendermaßen aus:
Delphi-Quellcode:
unit Utils;
interface
uses
Types;
implementation
function Tokenize(
const S: WideString;
const C: WideChar): TWideStringDynArray;
var
SLen, SIdx, NTok, TokStart, TokLen: Integer;
begin
if S <> '
'
then
begin
SLen := Length(S);
SetLength(Result, SLen);
TokStart := 0;
NTok := 0;
TokLen := 0;
for SIdx := 1
to SLen
do
begin
if S[SIdx] <> C
then
begin
if TokStart = 0
then
TokStart := SIdx;
Inc(TokLen);
end;
if ((SIdx = SLen)
or (S[SIdx] = C))
and (TokStart > 0)
then
begin
Inc(NTok);
Result[NTok-1] := Copy(S, TokStart, TokLen);
TokStart := 0;
TokLen := 0;
end;
end;
SetLength(Result, NTok);
end else
SetLength(Result, 0);
end;
end.
Dann hab ich die meinem Projekt hinzugefügt, denn ich will sie ja verwenden *g
So, und dann hab ich in der entsprechenden
Unit, wo ich Tokenize verwenden will Datei->
Unit verwenden->Utils gemacht
So und wenn ich jetz Tokenize(s, '.') aufrufe bekomm ich immer: Undefinierter Bezeichner: 'Tokenize'
steh grad auf'm schlauch ich hoffe ihr könnt mir helfen
danke,
martin