teilstring im string suchen

[Haegar]

sicher, ich brauch sie für stringoperationen.
und im string sind 100 pro welche drin :?

gruss haegar

[Luckie]

Poste mal die Prozedur.

Du hast auch nicht String und SubString vertauscht?

[Haegar]

Delphi-Quellcode:

procedure TForm1.Drucken1Click(Sender: TObject);
var druckdat:TextFile;
    i,p:integer;
    s:string;
    name, vorname, leerstring, rand:string[20];
begin
 leerstring:='                    ';       //20 LZ
 rand:='          ';                         //10 LZ
 {AssignPrn(druckdat);     //Variable mit Drucker verbinden
 Rewrite(druckdat);            //Verbindung herstellen
 Printer.Canvas.Font.Name:='Courier New';
 Printer.Canvas.Font.Size:=12;
 Writeln(druckdat);
 Writeln(druckdat);
 Writeln(druckdat,'Telefonverzeichniss':50);
 Writeln(druckdat);
 Writeln(druckdat,Rand+'Name                Vorname                Telefon');}
 for i:=0 to lb_anzeige.Items.Count-1 do
  begin
   s:=lb_anzeige.items[i];
   p:=pos(' ',s);
   showmessage(IntToStr(p));
   name:=copy(s,1,p-1);
   name:=name+leerstring;
   showmessage(name);
   //Writeln(druckdat,Rand+name);
  end;
 //CloseFile(druckdat);
end;

die druckersache ist für testzwecke auskommentiert, und brauch nicht verbessert werden ;)) (auch wenns nicht optimal sein sollte) :mrgreen:
wenn ich anstatt des leerzeichens ein bucstabe oder so einsetze, dann haut das mit dem copy und so auch alles hin, aber nicht wenn leerzeichen drin ist!?


gruss haegar

[Haegar]

so, muss leider gehen, mal sehen ob ich morgen nochmal ins forum guzcken kann (hoff)... :roll:

danke trotzdem
gruss haegar

[Daniel B]

Hallo,

spiel doch einfach damit. Es ist halt ziemlich Blöd wenn man nicht weiss was man damit machen soll, daher einfach mal ein Beispiel mit der Message.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  iFor: Integer;
  sEdit: String;
begin
  sEdit := Edit1.Text;
  for iFor := 0 to Length(sEdit) do
  begin
    if sEdit[iFor] = ' ' then
    begin
      ShowMessage('An der ' + IntToStr(iFor) + ' stelle ist eine Leerstelle!');
    end;
  end;
end;

Grüsse, Daniel :hi:

[Haegar]

hatte ich auch schonmal so ähnlich gemacht, kamen die unmöglichsten dinger raus! :firejump:

gruss haegar

[X-Dragon]

Zitat:

Zitat von Daniel B

Hallo,

spiel doch einfach damit. Es ist halt ziemlich Blöd wenn man nicht weiss was man damit machen soll, daher einfach mal ein Beispiel mit der Message.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  iFor: Integer;
  sEdit: String;
begin
  sEdit := Edit1.Text;
  for iFor := 0 to Length(sEdit) do
  begin
    if sEdit[iFor] = ' ' then
    begin
      ShowMessage('An der ' + IntToStr(iFor) + ' stelle ist eine Leerstelle!');
    end;
  end;
end;

Grüsse, Daniel :hi:

In der For-Schleife muss es dann doch heißen "0 to x -1" oder?

[edit]
Sind die Textformatierungen (Größe/Farbe) ganz ausgeschaltet?

[Haegar]

ok ich habs, mehr oder weniger umständlich

gruss haegar

[Daniel B]

Zitat:

Zitat von X-Dragon

In der For-Schleife muss es dann doch heißen "0 to x -1" oder?

Spielverderber! Naja, irgendwas hätte Er auch selbst noch machen müssen. Wer sagt denn das ich fehlerfreien Code abgeben möchte?
Das schönste ist manchmal, procedure TForm1.Button1Click(Sender: TObjekt);
;) Irgendwas sollten die Leute schon noch selbst machen und auch mal kleine fehlerchen suchen. :mrgreen:

Zitat:

[edit]
Sind die Textformatierungen (Größe/Farbe) ganz ausgeschaltet?

Was meinst Du denn damit?

Grüsse, Daniel :hi:

[X-Dragon]

Zitat:

Zitat von Daniel B

Zitat:

Zitat von X-Dragon

In der For-Schleife muss es dann doch heißen "0 to x -1" oder?

Spielverderber! Naja, irgendwas hätte Er auch selbst noch machen müssen. Wer sagt denn das ich fehlerfreien Code abgeben möchte?
Das schönste ist manchmal, procedure TForm1.Button1Click(Sender: TObjekt);
;) Irgendwas sollten die Leute schon noch selbst machen und auch mal kleine fehlerchen suchen. :mrgreen:

Zitat:

[edit]
Sind die Textformatierungen (Größe/Farbe) ganz ausgeschaltet?

Was meinst Du denn damit?

Grüsse, Daniel :hi:

Ups, tut imr leid :roll: :)

Ich meinte ob die Textformatierungen hier im Forum, mit dem man die Schriftgröße wie auch die Schriftfarbe ändern kann, ausgeschaltet sind. Oder zählen die zum HTML-Code?