70

En knap(button1) og en memo (memo1)
------------
procedure TForm1.Button1Click(Sender: TObject);
var
  i,k:integer;
  s:string;
begin
  For i:=0 to memo1.lines.count-1 do begin
    k:=2;
    s:=memo1.lines[i];
    while k<=length(s) do begin
      if s[k] in ['?' , '.' , ',' , '!'] then
      if s[k-1]<>' ' then s:=copy(s,1,k-1)+' '+copy(s,k,length(s));
      inc(k);
    end;
    memo1.lines[i]:=s;
  end;
end;

Ikke lige angående dette spørgsmålet, men en anden gang, giv lige spørgsmålet en anden titel end 70 - det er lidt irreterende bare med point-tallet

Michael

Michael har ret.

Man bør kunne se hvad spørgsmålet omhandler ud fra titlen.

Snorga og Michael har ret... det er skide irreterende *g*

okey så gør jeg det næste gang

det fungre ikke rigtig kan du ikke lige tjekke det igen den gør ikke noget vd texkten jeg tror det har noget at gøre med (while k<=length(s) do begin)

Underligt det virkede fint her. Men jeg tester det da lige igen.

Det virker for mig. Jeg startede et nyt projekt, satte en tmemo kaldet memo1, en tbutton.

Button1's onClick som det jeg har svaret længere oppe.

Satte memo1's lines til:
Memo1!
!sdfsfd!dsfsdf!

Klikkede på Button1, og så ændrede teksten i memo1 til:
Memo1 !
!sdfsfd !dsfsdf !

Her er koden igen, denne gang med kommentar undervejs:
-------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  i,k:integer;
  s:string;
begin
  //For alle linie i memo1 
  For i:=0 to memo1.lines.count-1 do begin
    //K = det tegn den skal start med at kikke på
    //Grunden til at k ikke start på 1 er:
    //1. Det koster mere kode (en extra tjek for om "s[k-1]") går godt
    //2. En linie skal ikke starte med et mellemrum?
    k:=2;
    //s er kortere end at skrive memo1.lines[i] alle steder :)
    s:=memo1.lines[i];
    // kør hele s-stringen igennem og..
    while k<=length(s) do begin
      //.. kik efter '?' '.' ',' og '!'
      if s[k] in ['?' , '.' , ',' , '!'] then
      //Hvis der findes et af tegne og der ikke allerede
      //er mellemrum foran så..
        if s[k-1]<>' ' then
          //.. sæt et mellemrun ind foran
          s:=copy(s,1,k-1)+' '+copy(s,k,length(s));
      //Næste tegn i linien
      inc(k);
    end;
    //Færdig med den linie, sæt den tilbage i memo1
    memo1.lines[i]:=s;
  end;
  //Færdig
end;

det må du undskylle jeg havde skrevte programmeringskoden forkert

Okay det er i orden.. Så det virker nu?