Eine Variable unterteilen?!

[ghost007]

Zitat:

hm....habe jetzt mal die hilfe von delphi durchgeschaut, kann aber nichts finden

[SirThornberry]

dann solltest du mal lernen wie man die hilfe benutzt. Als erstes delete eingeben und dann wird da unter anderem auch "Delete function" angezeigt:

Zitat:

Removes a substring from a string.

Unit

System

Category

string handling routines

Delphi syntax:

procedure Delete(var S: string; Index, Count:Integer);

Description

In Delphi code, Delete removes a substring of Count characters from string S starting with S[Index]. S is a string-type variable. Index and Count are integer-type expressions.

If index is larger than the length of the string or less than 1, no characters are deleted.

If count specifies more characters than remain starting at the index, Delete removes the rest of the string. If count is less than or equal to 0, no characters are deleted.

Und neben der Delphihilfe gibt es auch noch google und die Forensuche

[ghost007]

also, danke für den tipp, aber irgendwie funktioniert das nicht, könntest du mir bitte ein beispiel geben?

[Khabarakh]

Zitat von ghost007:

also, danke für den tipp, aber irgendwie funktioniert das nicht, könntest du mir bitte ein beispiel geben?

Dazu gibt es ein wunderschönes Beispiel in der Hilfe.

Zitat:

Und neben der Delphihilfe gibt es auch noch google und die Forensuche

[luigied]

Vielleicht solltest du versuchen die Stringelemente einzeln zu löschen

repeat
For i:=0 to stringlaenge do
deinstring[i]:=deinstring[i+1];
dec(stringlaenge);
until string[1] = ' ';

Bei jedem Durchlauf wird das erste Zeichen deines Strings gelöscht.

Gruß,

[stoxx]

Delphi-Quellcode:

function GetStringNr(const NR : integer; const Value : AnsiString; const delim : char = ';'): Ansistring;
var i, idx : integer;
    iOrd : byte;      
    Res : AnsiString;
    Used : Integer;
begin
  Result := '';
  idx := 1;
  Used := 0;
  SetLength(Res, Length(Value));

  for i := 1 to length(Value) do
  begin
    if Value[i] = delim then
       begin
          inc(IDX);
          continue;
       end;
    If IDX > NR then break;
    if IDX = NR then
     begin
      inc(Used);
      Res[used] := Value[i];
     end;
  end; // von for
   SetLength(Res, Used);
   result := res;
end;  // von GetStringNR

Showmessage(GetStringNr(4,'Ich bin ein Satz mit Leerzeichen als Trennung, ' '));

[ghost007]

also, danke an alle, ich habe das problem jetzt gelöst