Anfang und Ende eines String teils ermitteln

[Volker Z.]

Hallo,

Zitat:

Aber bei beiden funktionen kommt als Ergebnis immer eine ca. 7 stellige zahl und ich weis nicht warum das so ist.

Immer glaube ich jetzt nicht. Wenn man die beiden Funktion mit dem Startwert 16 laufen lässt, denn kommen - wie KWolf bereits anmerkte - korrekte Werte raus. Mit dem Startwert 41 verhält es sich allerding nicht so. Warum? Es ist das letzte Wort in Deinem Teststring, und da kommt halt dann kein Leerzeichen mehr; aber Du suchst fröhlich über die Stringgrenzen hinaus weiter, solange bis dann halt zufällig mal im Speicher ein Leerzeichen auftaucht. Gleiches gilt für einen Startwert der im ersten Wort liegt.

Zitat:

So ich habe das Problem gelöst, war ein Logik Fehler von mir während des aufrufens der Funktion.

Galube ich nicht. Siehe oben.


Du kannst ja mal folgendes versuchen:

Delphi-Quellcode:

unit Unit2;

interface
  function StringPartEnd (const Str : string; const Start : Integer) : Integer;
  function StringPartStart (const Str : string; const Start : Integer) : Integer;

implementation

function CheckStartInRange (const Str : string; const Start : Integer) : Integer;
begin
  if (Start < 1) or (Length (Str) < Start) then
    Result := 0
  else
    Result := Start
end;

function IsWhitespace  (const Str : string; const Start : Integer) : Boolean;
begin
  Result := CharInSet (Str [Start],  [#9, #10, #13, #32])
end;

function StringPartStart (const Str : string; const Start : Integer) : Integer;
begin
  Result := CheckStartInRange (Str, Start);
  if Result = 0 then
    Exit;

  if IsWhitespace (Str, Result) then
    Exit;

  while (Result > 1) and (Str [Result - 1] <> ' ') do
    Dec (Result)
end;

function StringPartEnd (const Str : string; const Start : Integer) : Integer;
var
  l : Integer;
begin
  Result := CheckStartInRange (Str, Start);
  if Result = 0 then
    Exit;

  if IsWhitespace (Str, Result) then
    Exit;

  l := Length (Str);
  while (Result < l) and (Str [Result + 1] <> ' ') do
    Inc (Result)
end;

end.

und in Deinem Form

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s    : string;
  i, j : Integer;
begin
  s := 'Das ist der String den ich untersuchen möchte';

  i := StringPartStart (s, 41);
  j := StringPartEnd (s, 41);
  Memo1.Lines.Add (Format ('%d %d %s', [i, j, Copy (s, i, j - i + 1)]));
  //Ausgabe 40 45 möchte


  i := StringPartStart (s, 2);
  j := StringPartEnd (s, 2);
  Memo1.Lines.Add (Format ('%d %d %s', [i, j, Copy (s, i, j - i + 1)]));
  // Ausgabe 1 3 Das
 
  i := StringPartStart (s, 16);
  j := StringPartEnd (s, 16);
  Memo1.Lines.Add (Format ('%d %d %s', [i, j, Copy (s, i, j - i + 1)]));
  // Ausgabe 13 18 String

  i := StringPartStart (s, 4);
  j := StringPartEnd (s, 4);
  Memo1.Lines.Add (Format ('%d %d %s', [i, j, Copy (s, i, j - i + 1)]));
  // Ausgabe 4 4 
end;

Gruß

[jacky213]

stimmt auch

man könnte aber auch vorher die länge des strings prüfen und nach dem letzten leerzeichen vor dem letzten wort, sollte die angegebene zahl schon zu weit gehen dann fehlermeldung und exit würd ich sagen.

ich hab gestern noch ein paar stunden dran gehängt und mir ist natürlich in dem moment wo ich gemütlich im bett lag das problem mit der suche nach dem string ende hinaus eingefallen.

habt dank und schönen wochenstart

[jacky213]

Der Übersicht halber hier nun das Endergebnis:

Die Komplette Unit mit Aufruf:

Delphi-Quellcode:

unit StringChecker;

interface
  function StringPartEnd (const Str : string; const Start : Integer) : Integer;
  function StringPartStart (const Str : string; const Start : Integer) : Integer;
  function CopyWord(Text: String; Position: integer) : String;

implementation

uses unit1, SysUtils;

function CheckStartInRange (const Str : string; const Start : Integer) : Integer;
begin
  if (Start < 1) or (Length (Str) < Start) then
    Result := 0
  else
    Result := Start
end;

function IsWhitespace (const Str : string; const Start : Integer) : Boolean;
begin
  Result := CharInSet (Str [Start], [#9, #10, #13, #32])
end;

function StringPartStart (const Str : string; const Start : Integer) : Integer;
begin
  Result := CheckStartInRange (Str, Start);
  if Result = 0 then
    Exit;

  if IsWhitespace (Str, Result) then
    Exit;

  while (Result > 1) and (Str [Result - 1] <> ' ') do
    Dec (Result)
end;

function StringPartEnd (const Str : string; const Start : Integer) : Integer;
var
  l : Integer;
begin
  Result := CheckStartInRange (Str, Start);
  if Result = 0 then
    Exit;

  if IsWhitespace (Str, Result) then
    Exit;

  l := Length (Str);
  while (Result < l) and (Str [Result + 1] <> ' ') do
    Inc (Result)
end;

function CopyWord(Text: String; Position: integer) : String;
var
i, j: integer;
begin
i := StringPartStart (Text, Position);
j := StringPartEnd (Text, Position);
Result := Copy (Text, i, j - i + 1);
end;

end.

Und hier nun der Aufruf:

Delphi-Quellcode:

procedure TForm1.Button15Click(Sender: TObject);
var
s: string;
begin
S:= 'Das ist der String den ich testen möchte';
showmessage(CopyWord(S, 15));
end;

Die Ausgabe ist in diesem Fall dann:
String

Danke nochmal an Volker Z. und KWolf