[Delphi] Edit

var
S : String;
begin
S :=Edit1.text;
while Pos(' ', S) > 0 do
ShowMessage(S);
end;

jak wstawić polecenie insert aby spacje zamieniło na -

var
S : String;
begin
S :=Edit1.text;
WHILE x>0 DO
begin
x:=Pos(' ', S);
IF x>0 then s[x]:='-';
end;

Edit1.text:=s;

O to chodziło?

O to chodziło?

To coś nie działa a nie ma teraz głowy do tego jak sie wyśpie to pomyśle chodzi mi o znalezienie spacji w edicie i zastąpienie jej myślnikiem

Mi to działa tylko dorzuć jeszcze end; na końcu ;]

var
Buffer:PChar;
size,i: integer;
z:char;
begin
size:= richedit.GetTextLen;
GetMem(Buffer, Size+1);
richedit.GetTextBuf(Buffer,Size+1);
with richedit do begin
for i:=0 to size-1 do begin
z:=Buffer[i];
case z of

      ' ': Buffer[i]:='-';      // tu właśnie zamienia spacje na "-"
      'a': Buffer[i]:='w';    // tu "a" na "w"  itd.

    end;

end;
richedit.Text := StrPas(Buffer);
richedit.Refresh;
FreeMem(Buffer, Size+1);
end;

przeanalizuj bo... wszystko sie moze zdazyc ;)

Jeśli chcesz zamienić spacje na -, to może daj po prostu:

uses strutils;
edit1.text:=ansireplacetext(edit1.text, ' ', '-');

:)