Hilfe zur Stringlist

[mkinzler]

Zitat:

Zitat von waschlap

Also wenn ich sage :

Delphi-Quellcode:

  showmessage(inttostr(wliste.indexOf('Office')));

Kommt lediglich -1 raus obwohl dieses Wort in meiner stringlist steht.

Folgendes steht in dieser Zeile: - Office Kenntnisse

Wenn ich das wie oben steht ausführe bekomme ich echt nur -1 raus.

Verzweifle schön langsam daran, es kann es doch net geben das man das nicht einfach auslesen kann.

Mit Pos versuche ich es gerade aber bin mir nicht sicher ob das klappen wird.

Mfg

Manu

Index sucht auchj nach 'Office' und nicht nach 'Office - Kenntnisse'.
In diesem Fall mußt du wie beschrieben die einzelnen Einträge durchgehen und mit pos überprüfen ob gesuchtes Wort in Eintrag ist.

[Klaus01]

In dem Fall ist 'Office Kenntnisse' ein String Deiner Stringlist
und IndexOf liefert -1 zurück weil ja der String 'Office Kenntnisse' heißt
und nicht 'Office'. IndexOf sucht nicht nach einer Teilmenge.

Delphi-Quellcode:

 i:=0;
 found:=false;
 while (i <= wslist.count-1) AND NOT found DO
   begin
     if pos('suchstring',wslist[i]) <> 0 then
       found:=true;
     inc(i);
   end;

if found then
   position:=i-1
else
   showMessage('...');

Vielleicht geht es ja so?

Grüße
Klaus

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Programmieren allgemein" nach "Object-Pascal / Delphi-Language" verschoben.
Ist ja eine Frage zu Delphi

[freak4fun]

Hallo :hi:,
sowas?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to ListBox1.Count - 1 do
    if Pos('office', ListBox1.Items.Strings[i]) <> 0 then
      ShowMessage(IntToStr(i) + ': ' + ListBox1.Items.Strings[i]);
end;

Ist sehr ähnlich dem Beispiel im Vorpost. ;)

MfG
freak

[TeronG]

Zitat:

Zitat von freak4fun

Hallo :hi:,
sowas?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to ListBox1.Count - 1 do
    if Pos('office', ListBox1.Items.Strings[i]) <> 0 then
      ShowMessage(IntToStr(i) + ': ' + ListBox1.Items.Strings[i]);
end;

Ist sehr ähnlich dem Beispiel im Vorpost. ;)

MfG
freak

Netter Code .. funtzen auch (das mit dem durchlaufen der gesammten liste) aber warum benutzt du/ihr nicht .IndexOf('blub') ist doch schöner zu Handeln :gruebel:

[freak4fun]

Zitat:

Zitat von TeronG

Netter Code .. funtzen auch (das mit dem durchlaufen der gesammten liste) aber warum benutzt du/ihr nicht .IndexOf('blub') ist doch schöner zu Handeln :gruebel:

So weit ich das verstanden hab, greift .IndexOf('office') hier nicht:

Zitat:

asdf
- office anwendung
heimatort
:: office?
was auch immer

MfG
freak

[waschlap]

Weil ich nur einen Teilstring suche und das funzt net mit indexof.


Mfg
Manu

[3_of_8]

Wie wärs mit memo1.text:=stringreplace(memo1.text,'wort1','wort 1wort2',[srReplaceAll]);?

[waschlap]

Erstmal danke für eure Hilfe, ich bin mittlerweile soweit, dass er mir die richtige stelle über ein showmessage ausgibt. Nur wenn ich die ganze Sache einfügen will sprich:

Delphi-Quellcode:

If Pos(' ', wliste.text) > 0 then
         test:= Pos('Office', wliste.text);
wliste.inert(test,'keine ahnuge');

schreibt er es mir in zeile 52 weil test = 52 entspricht.

Wie kann ich jezt sagen das er es an Zeichenstelle 52 es hineinschreibt??

Mfg
Manu

[freak4fun]

Zitat:

Zitat von 3_of_8

Wie wärs mit memo1.text:=stringreplace(memo1.text,'wort1','wort 1wort2',[srReplaceAll]);?

Was hat das mit der Stringliste zu tun? :gruebel:

MfG
freak