newbie probleme mit strings

[Sharky]

Hai bmg4ever,

ersteinmal: "Herzlich Willkommen in der Delphi-PRAXIS".

Ich habe gleich einen kleinen Tip für dich. Versuche möglichst immer Code der "etwas Macht" von Ereignissen der Benutzeroberfläche zu trennen. In deinem Falle würde ich also den Code nicht in das .OnClick des Buttons setzen sonder dafür eine eigene Funktion schreiben. Das hat den Vorteil das Du denn Code zum einen auch an andere Stelle verwenden kannst und Du keine "Probleme" bekommst wenn Du anstelle des Buttons das ganze z.B. über einen Menüpunkt machen möchtest.
Wenn ich das richtig verstanden habe möchtest Du also die Position des letzen ( im String ermitteln?

Hier mal ein Beispiel wie ich es gemacht hätte (was nicht heissen soll das es besser ist).

Delphi-Quellcode:

function KlammerPosition (value : String) : Integer;
var
  ndx : Integer;  // Zählervariable für Schleife
  foo : Integer; // Hilfsvariable für Zählung
begin
  foo := 0; // Wenn keine Klammer gefunden
  for ndx := 1 to Length (value) do
  begin
    if (value[ndx] = '(') then foo := ndx;
  end;
  result := foo;  // Ergebniss
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i : Integer;
begin
  i := KlammerPosition (Edit1.Text);
  if (i > 0) then
  begin
    ShowMessage ('Die letze "(" ist an Position ' + IntToStr (i));
  end
  else
  begin
    ShowMessage ('Keine "(" gefunden');
  end;
end;