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)
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)...

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

[Haegar]

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

gruss haegar

[X-Dragon]

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

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 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.

Zitat:

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

Was meinst Du denn damit?

Grüsse, Daniel

[X-Dragon]

Zitat von Daniel B:

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.

Zitat:

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

Was meinst Du denn damit?

Grüsse, Daniel

Ups, tut imr leid

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?