[delphi] wstawić stringa pomoiędzy stringa ...

[sazian]

Czy jest w delpchi funkcja umożliwiająca wpisanie znaku albo stringa wewnątrz innego stringa np.:
Dla takiego stringa 0000 chce wpisać literę ”a” pomiędzy drugim a trzecim znakiem o tak 00a00
Da się coś takiego zrobić za pomocą gotowej funkcji czy trzeba sobie napisać taką funkcje samemu ??

Od razu powiem że opcja 1 była by dla mnie bardziej zadowalająca

[Blind]

napisanie tego to przeciez banal, wystarczy uzyc copy no i dodawanie stringow.

[Toster]

litosci
[code=Delphi]
var
a: string;
begin
a:='test';
a[3] := "A&quo[ [/code]

[KKKas]

Toster: Twój kod tylko zamieni jeden znak ;-)
sazian: Standardowa funkcja Delphi o "nic nie mówiącej" nazwie: Insert ;-|

[sazian]

CYTATnapisanie tego to przeciez banal, wystarczy uzyc copy no i dodawanie strongow.
no niby tak ale po co pisać funkcje która już istnieje ??

CYTATToster: Twój kod tylko zamieni jeden znak ;-)
racja nie o to chodziło

[quote] sazian: Standardowa funkcja Delphi o "nic nie mówiącej" nazwie: Insert ;-| [/quote]
dzięki wielkie KKKas czegoś takiego właśnie potrzebowałem

[Toster]

bo mnie zmylily przyklad byl podejrzany :}

[Blind]

po co pisac? hmmm... szybciej bys to napisal niz wszedbys na forum, nie mowiac juz o napisaniu postu .
A drugi powod to napisanie ciut wiecej kodu nie zaszkodzi, a moze zwiekszyc twoje umiejetnosci

[djaczuk]

A nie można po prostu zamienić stringa na array'a?
Np. Masz s1,s2:string aa:array[1..100] of string;
s1:='mama';
chcesz dodać "a" po drugim znaku, to:
1)zamieniasz string na arraye
2) for i:=1 to 2 do s2:=s2+aa[i];
s2:=s2+'a';
for i:=3 to _ do s2:=s2+aa[i];

Ja tak robię:) może i prymitywne, ale działa;)

insert wszak jest szybsze i łatwiejsze:)

[Toster]

Pomijajac fakt ze post jest sprzed dawien dawna to robisz to od tylca, nie prosciej

[code=Delphi]
S := copy(old,1,n) + nowyStr + copy(old, n+1, Length(n));
[/code]

?

[djaczuk]

tak... ale jestem początkujący i połowy z twojej jednej linijki nie zrozumiałem