-
Forum: Sonstige Fragen zu Delphi
Delphi
by delphi-n,
6. Okt 2009
ich habs mal geordnet: Trotzdem gibt es einen weiteren fehler:
while i<RichEdit1.Lines.Count do
begin
Image6.Top:=15*i+30;
Button5.Caption := RichEdit1.Lines;
Application.ProcessMessages;
if StringEnthalten('+solange',RichEdit1.Lines) then
begin
-
Forum: Sonstige Fragen zu Delphi
Delphi
by delphi-n,
6. Okt 2009
habs mal geändert :D
als titel ist mir nix besseres eingefallen; wenn ihr ne idee habt, änder ichs auch gern wieder. : )
: danke, kommt kein fehler mehr :thumb:
-
Forum: Sonstige Fragen zu Delphi
Delphi
by delphi-n,
6. Okt 2009
Hier kommt wieder der fehler "listenindex überschreitet das maximum (anzahl der einträge in derlistbox)", auch wenn mehrere einträge in der listbox sind.
while i<RichEdit1.Lines.Count do
begin
Image6.Top:=15*i+30;
Button5.Caption := RichEdit1.Lines;
Application.ProcessMessages;
if StringEnthalten('*solange',RichEdit1.Lines) then
-
Forum: Sonstige Fragen zu Delphi
Delphi
by delphi-n,
5. Okt 2009
so soll es aussehen:
solange nichtistwand (tue) <-- tue lasse ich weg, da es unnütig ist; nichtistwand kann man durch abfragen der koordianten posx und posy(variablen) erreichen
schritt
*solange
-
Forum: Sonstige Fragen zu Delphi
Delphi
by delphi-n,
5. Okt 2009
es soll sozusagen eine while-schleife ("solange") aus dem richedit ausgelesen werden.
P.S. diese zeile (neu) ruft den fehler "listenindex überschreitet das maximum" hervor:
i:=strtoint(ListBox1.Items);
-
Forum: Sonstige Fragen zu Delphi
Delphi
by delphi-n,
5. Okt 2009
wo sollte ich das hinsetzen?
P.S.: Eig. könnte ich aus der for-schleife auch wieder eine While-Schleife machen, dann gings
-
Forum: Sonstige Fragen zu Delphi
Delphi
by delphi-n,
5. Okt 2009
ups, ich hatte es nicht in den Deklarationsteil geschrieben. sry, mein Fehler. :wall:
----
aber wie mache ich das, wenn ich wie bei "while" eine "solange"-schleife einbauen will?
-
Forum: Sonstige Fragen zu Delphi
Delphi
by delphi-n,
5. Okt 2009
so herum klappts:
function StringEnthalten(const SubStr, Str: string): Boolean;
begin
Result := Pos(AnsiLowerCase(SubStr), AnsiLowerCase(Str)) > 0;
end;
procedure TForm2.Button5Click(Sender: TObject);
var i:integer;
begin
-
Forum: Sonstige Fragen zu Delphi
Delphi
by delphi-n,
5. Okt 2009
also so?
procedure TForm2.Button5Click(Sender: TObject);
var i:integer;
begin
for i := 0 to RichEdit1.Lines.Count - 1 do
begin
Button5.Caption := RichEdit1.Lines;
-
Forum: Sonstige Fragen zu Delphi
Delphi
by delphi-n,
5. Okt 2009
ja, der soll nicht alles auf einmal machen; man soll auf dem Button folgen können
@matze: guter hinweis, hätt ich glatt übersehen :thumb:
@Der.Kaktus:
es wird auch immer später, :vernupft:
-
Forum: Sonstige Fragen zu Delphi
Delphi
by delphi-n,
5. Okt 2009
danke, wieder was gelernt :thumb:
wenn ich das in das richedit schreibe:
mit dem Quellcode:
-
Forum: Sonstige Fragen zu Delphi
Delphi
by delphi-n,
5. Okt 2009
der soll ja die nächste zeile vom richedit nehmen.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by delphi-n,
5. Okt 2009
procedure TForm2.Button5Click(Sender: TObject);
var i:integer;
s:string;
begin
i:=0;
while i<RichEdit1.Lines.Count do
begin
sleep(100);
S := RichEdit1.Lines;
-
Forum: Sonstige Fragen zu Delphi
Delphi
by delphi-n,
5. Okt 2009
jetzt hab ich
if Pos('schritt', AnsiLowerCase(S)) > 0 then
begin
Button1.Click;
i:=i+1;
exit;
end;
if Pos('hallo', AnsiLowerCase(S)) > 0 then
begin
-
Forum: Sonstige Fragen zu Delphi
Delphi
by delphi-n,
5. Okt 2009
danke, funktioniert perfekt :thumb:
:
in
procedure TForm1.Button1Click(Sender: TObject);
var S: string;
begin
-
Forum: Sonstige Fragen zu Delphi
Delphi
by delphi-n,
5. Okt 2009
AnsiLowerString kennt mein delphi (7) nicht :gruebel:
-
Forum: Sonstige Fragen zu Delphi
Delphi
by delphi-n,
5. Okt 2009
pech für den nutzer, der muss dann halt richtig eingeben :D
-
Forum: Sonstige Fragen zu Delphi
Delphi
by delphi-n,
5. Okt 2009
danke :thumb:
procedure TForm1.Button1Click(Sender: TObject);
var S: string;
begin
S := Edit1.Text;
{ Convert spaces to zeros }
if Pos('hallo', S) > 0 then
-
Forum: Sonstige Fragen zu Delphi
Delphi
by delphi-n,
5. Okt 2009
Hi!
Wie durchsucht man einen String (eig. eine Linie aus einem Richedit) nach z.B. 'Hallo'?
Vielen Dank